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ABSTRACT 


Descriptions  of  two  digital  computer  programs  which  calculate 
the  motion  of  a mono-hull  ship  or  a twin-hull  ship  are  given.  The 
ship  is  assumed  to  be  advancing  at  constant  speed  with  arbitrary 
heading  in  regular  waves.  The  heave  and  pitch  motion  equations  are 
solved  in  the  program  MOT35;  the  sway,  roll  and  yaw  motion  equations 
are  solved  in  the  program  MOT2**6.  Computer  input  and  output  and 
program  usage  are  described.  Listings  of  the  programs  as  well  as 
sample  input  and  output  are  given. 

ADMINISTRATIVE  INFORMATION 

This  project  was  funded  by  the  High  Performance  Vehicle  Hydrodynamic 
Program  of  the  Ship  Performance  Department,  David  W.  Taylor  Naval 
Ship  Research  and  Development  Center,  under  Work  Unit  1507-200. 


INTRODUCTION 


This  report  describes  the  data  input  required  for  the  implementation 
of  the  computer  programs  MOT35  and  MOT216.  The  programs  are  written  in 
FORTRAN  IV  for  use  on  the  CDC  6700  at  the  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center  (DTNSRDC).  These  programs  calculate  the 
motions  of  a mono-hull  ship  or  a twin-hull  ship  moving  in  a regular  wave 
train  of  arbitrary  heading.  The  ships  can  have  stationary  stabilizing  fins 
at  two  arbitrary  longitudinal  locations.  The  amplitudes  and  phases  of  the 
motions  are  given  as  functions  of  encounter  frequency. 

The  theoretical  development  for  the  solved  equations  is  described  in 

( 1)  * 

a separate  report.  These  equations  of  motion  are  formulated  in  linear 

second-order  differential  equations.  These  are  separated  into  three 
independent  groups  representing,  respectively,  the  motion  of  surge,  heave- 
pitch,  and  sway- rol 1-yaw.  The  hydrodynamic  coefficients  in  the  equations 
of  motion  are  divided  into  three  categories.  The  coefficients  which  can 
be  obtained  under  the  poten t i al - f 1 cw  assumption  for  a non-lifting  body 
belong  to  the  first  category.  These  coefficients  are  obtained  by  strip 
theory  based  on  the  solution  of  the  two-dimensional  hydrodynamic  problem 
of  cylinders  oscillating  on  the  free  surface.  The  wave  exciting  coefficients 
are  obtained  by  the  Haskind  relation.  The  hydrodynamic  coefficients  associated 
with  the  viscous  nature  of  the  fluid  belong  to  the  second  category.  These 
are  obtained  by  the  cross-flow  approach  for  slender  bodies  with  moderate 
angle  of  attack.  The  hydrodynamic  coefficients  contributed  by  the  control 
surfaces  belong  to  the  third  category.  These  are  obtained  by  slender  body 
theory  for  low-aspect  ratio  wing-body  combination.  For  mono-hull  ships 
without  horizontal  stabilizing  fins,  only  the  hydrodynamic  coefficients  in 
the  first  category  are  used. 

Motion  calculations  are  given  for  five  degrees  of  freedom.  Computation 
of  surge  is  not  made  in  the  programs.  Since  the  heave  and  pitch  motion 
equations  are  assumed  to  be  independent  of  the  sway,  roll  and  yaw  motion 
equations,  the  solution  of  the  equations  is  implemented  in  two  separate 
computer  programs:  MOT35  for  heave  and  Ditch,  M0T2A6  for  sway,  roll  and  yaw. 


References  are  listed  on  page  235. 
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Both  programs  can  be  used  for  calculating  the  motions  of  either  a 
mono-hull  or  a twin-hull  ship.  This  choice  is  determined  by  the  value 
given  by  the  input  variable  MONO. 

The  degree  of  reliability  of  the  mathematical  model  is  checked  by 

comparing  the  computations  with  experimental  results  for  SWATH  configurations 

in  Reference  1.  In  general,  the  agreement  between  the  two  results  are 

(2) 

found  to  be  as  good  as  in  the  case  of  mono-hull  ships.  For  roll  motion, 
the  correlation  for  SWATH  configurations  appears  to  be  better  than  that  for 
mono-hull  ships.  The  computation  of  roll  in  M0T246  does  not  include  the 
bilge  keel  effects  as  does  the  mono-hull  ship  program^  but  the  bilge  keel 
effect  may  be  represented  by  choosing  proper  values  for  the  viscous  lift 
coefficients  (XZVL)  and  the  cross-flow  drag  coefficient  (XZFO) . 

For  computations  of  motion  in  irregular  seas,  the  transfer  functions 
computed  by  MOT35  and  MOT246  are  used  for  input  to  another  program  called 
SMOTION  which  has  been  developed  at  the  Center.  The  output  of  SMOTION 
provides  the  significant  amplitudes  of  displacement,  velocity  and  acceler- 
ation of  the  modes  of  motion  desired  as  well  as  the  absolute  and  relative 
vertical  or  lateral  motion  at  any  given  point  of  the  hull.  It  also  provides 
the  percentage  of  exceedance  of  a given  motion  for  ships  operating  in  the 
North  Atlantic  Ocean. 

The  data  card  input  deck  used  for  the  two  programs  MOT35  and  M0T2*»6 
is  the  same.  A listing  of  data  input,  calculated  geometric  information  and 
motions  (transfer  functions)  as  functions  of  non-dimensional  encounter 
frequency  are  given  in  the  computer  output.  If  requested,  added  mass  and 
damping  coefficients  and  wave  exciting  forces  and  moments  are  also  printed. 

Program  usage  is  described  in  this  manual.  Included  are  discussions  of 
program  structure,  input,  output  and  program  implementation. 

GENERAL  BACKGROUND  FOR  PROGRAM  USAGE 

The  two  motion  proqrams  presented  here  have  evolved  from  the  Center's 

efforts  in  developing  analytical  prediction  methods  for  mono-hull  and 

twin-hull  ships.  The  main  theoretical  basis  is  the  source-distribution 

method  for  solving  the  boundary- va I ue  problem  for  oscillating  two-dimensional 

(k) 

cylinders.  Once  the  method  is  developed  for  single  cylinders  , this  can 
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be  extended  to  twin  cylinders^).  With  the  slender  body  assumptions,  these 
basic  two-dimensional  solutions  can  be  integrated  to  obtain  the  hydrodynamic 
coefficients  involved  in  the  equations  of  motion.  This  approach  is  now 
widely  accepted  as  a practical  tool  to  compute  ship  motions  induced  by 
ocean  waves. 

( 3) 

Thp  Center  has  developed  a comprehensive  computer  program  to  compute 
the  motion  of  mono-hull  ships  in  six  degrees  of  freedom  and  various  structural 
loadinos  induced  by  the  ship  motion  and  waves.  The  present  program  is 
developed  to  computer  the  motion  of  twin-hull  ships  following  the  same  approach 
as  used  in  the  mono-hull  motion  program.  However,  one  of  the  major 
deficiencies  in  the  prior  proqrams  has  been  the  underestimated 
damping  coefficients  in  the  heave,  pitch  and  roll  modes.  The  necessity  of 
introducing  viscous  damping  coefficients  was  almost  imperative  if  any  realistic 
prediction  of  motion  was  to  be  made.  The  degree  of  difficulty  in  obtaining 
reliable  damping  coefficients  is  well  known  to  those  who  have  attempted  to 
predict  the  roll  motion  of  mono-hull  ships.  The  aforementioned  difficulty 
was  resolved  by  using  an  empirical  approach  borrowed  from  the  method  used  for 
airships.  Another  difficulty  was  encountered  with  a twin-hull  ship  with 
stabilizing  foils.  Here,  the  hydrodynamic  effects  contributed  by  the  foils 
should  be  properly  accounted  for  in  order  to  obtain  a reliable  prediction 
of  motion.  The  foregoing  additional  hydrodynami c effects  made  the  programs 
much  more  complex  than  the  mono-hull  program. 

The  requi red  computer  memory  is  reduced  by  dividing  the  solution  of  the 
equations  of  motion  into  two  programs:  one  for  heave-pitch  motion  and 

one  for  sway- rol 1-yaw.  This  also  saves  unnecessary  computation  when  only 
certain  modes  of  motion  are  of  interest.  Thus  roll  motion  in  beam  waves,  and 
h°av»  and  pitch  in  head  waves  can  be  calculated  without  solving  all  the 
equations.  Results  from  both  programs  are  sometimes  needed.  For  example, 
when  computing  the  absolute  or  relative  vertical  motion  of  a point  on  the 
hull  in  obliaue  waves,  the  heave,  pitch  and  roll  motions  are  required.  For 
this  and  similar  computations  the  results  from  the  two  proqrams  can  be 
stored  on  tape.  Then  these  results  can  be  used  in  a third  program  to  make 
the  desired  computations. 


In  the  development  of  these  programs,  the  option  of  computing  motions 
for  a mono-hull  ship  has  been  included.  The  mono-hull  ships  can  have 
asymmetric  sections.*  In  the  computations  for  mono-hull  ships,  the  effects 
of  stationary  stabilizing  fins  can  be  included.  The  roll  damping  contributed 
by  bilge  keels  is  not  included  in  the  present  programs.  However,  the  bilge 
keel  effect  can  be  included  if  proper  viscous  damping  coefficients,  one 
depending  on  the  forward  speed  and  the  other  being  independent  of  the  speed, 
are  given  as  input  in  the  M0T2l*6  program.  Computations  using  this  approach 
should  be  correlated  with  available  experimental  data  in  order  to  deter- 
mine the  proper  values  of  the  viscous  damping  coefficients  for  the  bilge 
keel  effects. 

In  the  input  data  the  wave  heading  angles,  fi,  must  be  given  values  in 
the  range  from  0 through  180  degrees.  Since  the  transfer  functions  for 
8*  -a  are  the  same  as  those  for  8 = + a,  results  for  all  headings  can  be 
calculated. 

A part  of  the  input  data  to  the  present  program  is  a set  of  nond i mens i ona I 
encounter  frequencies.  These  frequencies  for  given  ship  speeds  can  be  used 
to  compute  the  incoming  wave  lengths  or  frequencies.  When  the  wave  heading 
8 , is  in  the  quarter  between  the  beam  (8  = tt/2)  and  the  stern,  (8  = 0)  there 
can  exist  three  different  wave  lengths  for  a given  frequency  of  encounter, 
depending  on  the  speed  of  the  ship.  Thus,  when  the  motion  results  are  to  be 
obtained  at  reasonable  intervals  of  the  wave  frequency  so  that  the  motions 
in  irregular  seas  can  be  computed,  an  adjustment  of  the  intervals  of 
frequencies  of  encounter  should  be  made  for  each  given  speed.  In  the  present 
Drograms  for  the  computation  of  motions  for  0<8<^-,  the  ratios  of  wave  length 
to  ship  length  and  the  desired  increment  of  the  wave  length  to  ship  length 
ratio  between  the  neighboring  ratios  are  to  be  chosen  as  input  data  instead 

of  the  nond i mens i ona I frequencies  of  encounter  which  should  be  given  if  the 

v 

waves  are  approaching  the  ship  from  the  bow  quarter  90 <8 < 1 80 . 


*ln  the  computation  for  a conventional  catamaran  ship  in  head  waves,  the  computed 
motion  of  its  demihull  (which  is  treated  as  a mono-hull)  showed  better  agree- 
ment'with  the  model  experimental  results  than  the  twin-hull  results  did. (7) 
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PROGRAM  ORGANIZATION 


The  proqrams  presented  in  this  report  are  organized  with  the  use  of 
overlays.  These  overlays  consist  of  programs,  subroutines  and  functions. 

The  structure  of  MOT35  is  very  similar  to  that  of  M0T2A6.  With  the 
exception  of  the  program  PGM5,  both  MOT35  and  M0T2A6  have  programs  with 
the  same  names  which  are  used  for  the  same  purposes.  The  structure  of 

( 6) 

these  programs  resembles  that  of  the  Prank  Close-Fit  Computer  Proaram. 

The  close-fit  techniaue  utilized  in  computing  the  base  hull  two-dimensional 
added  mass  and  damping  coefficients  has  been  revised  to  be  applicable  for 
both  twin  cylinders  and  a sinale  cylinder.  (The  alternative  Lewis  form 
method  for  a single  cylinder  is  not  included  in  the  present  programs).  In 
addition,  the  option  of  calculating  motions  in  an  irregular  seaway  by  the 
P i e rso-'-Mosk  ow  i t z formula  has  been  retained  in  MOT35.  for  a mono-hull  ship 
travelling  in  head  seas  the  heave  and  pitch  motion  calculations  from  MOT35 
are  equivalent  to  those  obtained  from  the  Frank  program.  However,  there 
are  many  differences  between  the  Frank  program  and  the  present  programs. 

The  program  user  should  note  that  the  form  used  for  the  input  differs. 

The  program  MOT35  and  M0T2A6  are  organized  with  the  use  of  overlays. 

To  facilitate  program  alteration  and  usage  the  DTNSROC  program  EDIT-  is 
used. 

A genera!  flow  chart  for  both  MOT35  and  M0T2A6  is  given  in  Figure  1. 
Listings  of  the  programs  are  given  in  Appendices  A and  B.  Brief  descriptions 
0f  overlav  programs,  subroutines  and  functions  are  given  below. 

Programs 

MAIN  is  used  to  initiate  program  execution. 

MOT35  for  M0T246)  is  used  to  read  and  write  all  the  input  data. 

PGM!  is  used  to  calculate  geometric  and  hydrostatic  quantities. 

DGM1A  is  used  to  determine  non-dimensional  frequencies  for  calculations 
where  the  heading  angle  is  0<fis90.  See  Appendix  C for  further  discussion 
of  the  technique  used. 

The  Edit  Control  Card  Program  was  described  in  a technical  note  by  M.E.  Hass 
and  P.E.  Buttey  of  the  Center's  Computation  and  Applied  Mathematics 
Department . 
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Figure  1 - Flow  Chart  for  M0T35  and  M0T246 
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Figure  1 - Flow  Chart  for  M0T35  and  M0T246  (Cont'd) 
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PGM  1 B calculates  absolute  ard  relative  motions,  velocity  and  acceleration. 

PGM2  is  used  to  calculate  added  mass  and  damping  coefficients. 

PGM2B  is  used  to  calculate  cross-flow  viscous  damping  contributions 
to  the  damping  coefficients  and  wave-exci t ing  forces. 

PGM3  is  used  to  determine  and  to  write  the  final  motion  responses 
(transfer  functions). 

PGrtA  Is  used  to  plot  the  cross-sectional  offsets. 

PGM5  is  used  only  in  MOT35  to  calculate  the  responses  in  irregular 
seas  based  on  the  Pierson-Moskowi tz  spectra  formula. 

Funct i ons 

ATAN3  is  used  to  set  the  value  of  the  arctangent  of  (0,0)  to  0. 

SIMPUN  is  used  to  evaluate  an  integral  using  the  trapezoidal  method. 

XMAX  is  used  to  determine  the  maximum  value  in  a given  array. 

XMIN  is  used  to  determine  the  minmum  value  in  a given  array. 

Subrout i nes 

DAVID  is  used  to  calculate  the  two-dimensional  frequency-dependent 
velocity  potential  and  its  normal  derivatives  on  the  body  due  to  a pulsating 
source  of  unit  strength.  (See  Appendix  A of  Reference  A). 

FINIT  is  used  to  calculate  the  logarithmic  terms  in  the  expression  of  a 
pulsating  source  of  unit  strength. 

FRANK  is  used  to  calculate  the  added  mass,  damping  and  complex  amplitudes 
of  exciting  forces  and  moments  for  a section. 

MATINS  is  used  for  matrix  inversion  and  for  solution  of  linear  equations 
by  the  pivot  method. 

NILS  is  used  for  evaluating  Simpson's  weight  coefficients  for  an  array 
of  station  numbers. 

PRESS  is  used  to  calculate  the  pressures  on  the  cross-section  contours. 

SCAST  is  used  to  calculate  statistical  sea  state  data  for  a riven  o i <r  i - 
ficant  wave  height. 

SOLVE  is  used  to  solve  the  equations  of  motion. 

QDFCN  is  used  to  calculate  non-dimensional  wave  frequencies,  wave  num- 
bers, and  wave  length  to  ship  length  for  a given  array  of  non-dimensional 
encounter  frequencies. 
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INPUT 


All  data  input  for  MOT35  and  MOT2A6  are  provided  on  digital  computer 
cards.  The  same  data  deck  form  is  utilized  for  both  computer  programs. 

Ship  geometry  and  particular  operating  conditions  must  be  specified. 

FORTRAN  variable  names,  definitions  and  card  formats  for  the  input  are 
listed  in  Appendix  0.  More  detailed  discussion  of  some  input  requirements 
and  options  are  given  below  and  in  a section  on  output 

GRAV 

The  input  variable  GRAV  is  used  to  indicate  the  length  units  used  in 
the  input.  GRAV  is  the  gravitational  acceleration.  If  9-807  is  given 
then  it  is  assumed  in  the  program  that  all  input  with  length  dimensions 
are  being  given  in  meters;  if  32 . 1 7^  or  0.  are  given  it  is  assumed  that 
feet  are  the  units  used.  All  data  must  be  given  in  the  same  units. 

NOU 

For  irregular  sea  calculations  in  MOT35,  NOW  should  be  given  a non-zero 
value.  This  option  should  be  used  only  if  all  length  units  in  the  input 
are  given  in  feet  (that  is,  when  GRAV  = 0.  or  GRAV  = 32.17*0. 

/ 

r 

WANG  (I) 

When  any  of  the  wave  heading  angles  (denoted  WANG  (I))  is  less  than 
90  degrees  certain  restrictions  are  placed  on  program  input.  (Note  that 
WANG  (I)  = 180  degrees  for  head  seas).  In  this  case  JA  must  be  defined  as 
2,  IND  as  0.  The  values  of  WANG  (I)  must  be  given  in  ascending  order. 

OMEN  (I) 

The  values  for  non-dimensional  frequency  are  defined  in  the  program 
differently,  depending  on  the  values  of  the  wave  heading  angle.  For  all 
values  of  WANG  (I)  less  than  90  degrees,  motion  calculations  are  made  for 
non-dimensional  encounter  frequency  values  based  on  the  input  (using  RWS (1 ,1,1) 
and  RWS(2,I,1).  For  other  values  of  WANG  (I)  the  calculations  are  made  for 
all  values  of  OMEN  (I)  which  are  defined  by  w/L/g  where  <u  is  the  encounter 
frequency  in  radians  per  second,  L is  the  ship  length  given  by  the  input 
EL  and  g is  the  gravi tational acceleration.  The  technique  used  for  calculations 
for  the  heading  angle  less  than  90  degrees  is  discussed  in  Appendix  C. 
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NLOOP 


For  the  heave,  pitch  and  roll  motions  for  twin-hulls  and  for  the  roll 
motion  for  mono-hulls,  the  effects  of  nonlinear  viscous  damping  should  be 
included  in  the  computation.  Although  the  computation  is  performed  with 
the  method  of  equivalent  linearization  of  the  nonlinear  damping  coefficients, 
it  requires  prior  knowledge  of  the  motion  amplitudes.  Hence,  the  computation 
is  carried  out  iteratively,  with  the  first  amplitude  of  motion  obtained  with- 
out the  nonlinear  damping,  until  a reasonable  convergence  of  the  motion 
amplitude  is  obtained. 

NLOOP  is  the  maximum  number  of  such  iterations  to  be  used  in  Program 
PGM2B.  NLOOP  may  be  defined  as  0 if  inclusion  of  the  nonlinear  damping  is 
deemed  unnecessary.  The  iteration  continues  until  the  value  of  the  maximum 
roll  motion  (in  MOT2I46)  or  the  maximum  heave  motion  (in  M0T35)  converges 
with  an  absolute  error  for  the  last  two  values  of  less  than  102;  or  until 
the  iteration  has  been  repeated  NLOOP  times. 

The  iterative  technique  is  not  used  if  the  heave  amplitude  divided  by 
wave  amplitude  is  less  than  0.9  or  the  maximum  roll  amplitude  divided  by 
wave  amplitude  and  multiplied  by  one-half  of  the  centerline  to  centerline 
distance  for  twin-hulls  or  one-half  beam  for  mono-hulls  is  less  than  0.8. 

If  these  magnitudes  are  too  small  or  the  convergence  criteria  is  not  met 
within  NLOOP  iterations,  appropriate  diagnostic  statements  are  printed 
and  norma  1 ca 1 cu lat i on  continues.  The  program  user  should  check  for  such 
diagnostics . 

X(I,J),  Y(I,J) 

Several  variables  are  used  to  describe  the  hull  shape.  Data  should 
be  given  for  about  twenty  stations  which  span  the  length  of  the  ship  at 
regular  (not  necessarily  even)  intervals,  starting  at  the  bow.  The  number 
of  stations  to  be  described  is  denoted  by  NOS.  The  station  number  to  be 
associated  with  1*^  set  of  offsets  is  denoted  by  ST(I).  Note  that  the 
distance  between  the  Station  Numbers  0 and  20  is  assumed  to  equal  the 
value  given  by  EL  which  can  be  any  length  within  the  overall  length  of 
the  ship.  All  stations  are  spaced  according  to  this  scale.  Values  of 
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ST ( I ) can  be  negative  or  greater  than  20,  In  which  case  the  stations  should 
be  selected  In  pairs  of  even  intervals.  The  value  of  ST(I)  - 10.0  (i.e., 
the  station  located  at  the  middle  of  EL)  should  always  be  Included. 

The  variable  MPS  (I)  indicates  whether  the  I ^ station  described  is 
part  of  a parallel  body  section.  A value  of  0 Indicates  that  the  station 
is  not  part  of  a parallel  section;  1 and  2 indicate  that  the  station  is, 
respectively,  the  first  or  one  of  the  subsequent  stations  (including  the 
last  one)  in  the  parallel  section.  All  offset  data  must  be  given  for 
stations  in  a parallel  section  and  stations  must  be  distributed  along  the 
parallel  section.  However,  for  the  stations  having  MPS(I)  * 2,  the  sectional 
added  mass  and  damping  computations  will  not  be  repeated  but  will  be  replaced 
by  the  values  obtained  at  the  first  station  of  the  parallel  body.  If  a ship 
has  a substantial  parallel  middle  body,  the  foregoing  scheme  would  save 
considerably  in  the  computational  time  and  cost. 

The  variable  NM ( I ) indicates  the  number  of  pairs  of  x and  y coordinates 
that  will  be  used  to  describe  the  Ith  station.  This  value  may  be  0 for  the  bow 
or  stern. 

The  x and  y coordinates  are  defined  using  the  arrays  X(I,J)  and  Y(I,J), 
respectively.  Each  cross  section  is  approximated  by  a polygon  with  corners 
defined  by  these  x and  y values.  These  coordinates  should  be  evenly  dis- 
tributed since  pressures  are  assumed  to  be  constant  over  a linear  segment 
between  the  neighboring  points.  A set  of  values  of  x for  the  station 
are  given  first  and  then  followed  by  a set  of  the  corresponding  values  of  y 
for  that  station.  This  is  repeated  for  each  station  for  which  NM(I)  is 
greater  than  0.  The  origin  of  the  x-y  coordinate  system  is  at  the  point  of 
maximum  draft  of  all  stations  at  the  longitudinal  centerplane  of  one  hull, 
figure  2 indicates  the  coordinate  system  and  the  order  data  should  be  given 
in  for  each  of  the  four  types  of  hull  configurations,  with  the  appropriate 
value  of  MONO  indicated.  Also  indicated  are  the  coordinate  points  which 
must  be  included. 

For  the  hydrodynamic  computations,  the  origin  of  the  coordinate  system 
at  each  cross  section  is  shifted  to  the  midpoint  of  the  overall  beam  of  the 
cross  section  (of  two  hulls)  at  the  calm  waterline. 
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OUTPUT 


The  program  user  specifies  what  output  is  desired.  Sample  input 
data  and  the  resulting  computer  output  are  given  in  Appendix  |.  The 
printed  output  from  both  MOT35  and  M0T246  includes  a listing  of  the 
input  data,  a table  of  principal  characteristics  of  the  ship  and  motion 
results.  Additional  output  may  be  requested.  The  three  input  variables 
IG,  IP  and  IND  control  the  optional  output. 

IG 

The  control  variable  IG  determines  what  frequency-dependent  hydrodynamic 
variables  are  printed.  The  factors  used  to  non-dimens iona t i ze  these 
variables  are  given  in  Table  1.  If  IG  = 0 only  motion  calculations  are 
printed.  The  amplitudes  and  phases  for  heave  and  pitch  (MOT35)  and  sway, 
roll  and  yaw  (MOT246)  are  given.  In  addition,  absolute  vertical  (M0T35) 
or  lateral  (M0T246)  motion  velocity  and  acceleration  calculations  are  given 
at  specified  station  locations  (RBMST  (I))  and  height  (RBMHT(I)  for  MOT2A6 
only.)  Relative  vertical  motion  with  respect  to  the  wave  surface  is  also 
calculated  in  M0T35.  If  IG  is  given  the  value  of  1,  amplitudes  and  phases 
for  wave  exciting  forces  and  moments  are  also  given.  When  IG  is  2 the  added 
mass  and  damping  coefficients  are  given  in  addition  to  the  information 
printed  with  IG  - 1.  Also,  with  IG  = 2,  intermediate  as  well  as  final  results 
are  given  for  the  added  mass  and  damping  coefficients.  Labels  are  used  to 
indicate  which  contributing  terms  have  been  included  in  the  results.  In 

addition,  the  motion  amplitudes  and  phases  computed  at  each  cycle  of  the 
iterative  calculations  (NLOOP  greater  than  0)  will  be  printed  if  IG  is 
defined  as  3- 

IP 

The  input  variables  X ( I , J ) and  Y ( I , J ) which  are  offsets  for  cross-sections 
of  the  hull  can  be  plotted  using  the  CDC  Charactron  plotting  routine  if  IP 
i s def 1 ned  as  1 . 
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TABLE  I 


NON-DIMENSIONALIZATION  FACTORS  FOR 
COMPUTER  OUTPUT  VARIABLES 


VARIABLE 


A22 

m 

A2* 

m i 

A26 

m i 

A33 

m 

A35 

m ( 

ai*a 

mi2 

V 

A_  , 

53 

A55 

mi2 

A62 

mi 

A6*4 

mi2 

A66 

mt2 

B22 

m/g /i 

B2A 

m/gT 

B26 

m/gT 

B33 

m/g  H 

B35 

m/gT 

B44 

mt/gi 

Bi<6 

miigi 

B53 

m/gT 

)l  VI  DING 
FACTORS 
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TABLE  1 (Cont'd) 


NON- D I MENS  I ONAL 1 2AT I ON  FACTORS  FOR 
COMPUTER  OUTPUT  VARIABLES 

DIVIDING 

VARIABLE  FACTORS 


B55 

mf/g7 

•m 

ml/  gl 

,<•> 

mgA 

,<«> 

pgA  A 
w 

mqA 

o 

xT* 

\ 

r (e) 
P6 

mgA 

h 

A 

h 

A 

2A 

B 

^5 

2A 

l 

2A 

T 

0) 

/g/f 

where 

A wave  amplitude 

waterplane  area 

A. j  added  mass  coeffficient 

B. j  damping  coefficient 

B beam  for  monohulland  separation  distance  between  the 

centerplanes  of  twin-hull 
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g 

i 

w 


t 

m 


u 


wave  exciting  force  or  moment  in  the  i th  mode 

acceleration  due  to  gravity 

waterplane  area  moment  of  inertia  about  the 
y-axi s 

ship  length  given  by  EL 

displaced  mass  of  ship 

motion  displacement  in  the  i th  mode 

encounter  frequency 
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IND 

The  values  of  the  motion  amplitudes  and  phases  can  be  transfered  to 
a tape  If  IND  Is  defined  as  1.  When  JA  Is  defined  as  1,  this  option 
will  facilitate  use  of  a modified  version  of  the  program  SMOTION  which 
is  used  for  seakeeping  calculations  In  irregular  seas  using  Pierson- 
Moskowitz  and  Station  INDIA  sea  spectra.  SMOTION  is  briefly  discussed 
and  listed  in  Appendix  F. 
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APPENDIX  A 

PROGRAM  LISTING  OF  MOT35 
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noon 


c 


OVERLAY (UVFlLE.OfO) 

PkOGRAM  MAIN ( INPUT=512,0UTPUT=512,TAPt22=512.TAPE48*512, 
X TAPE5=lNPUT,TAPEb=0UTPUT) 


COMMON/HP  1/  NPAG, TITLE (8) *PATT < 7) .RATIO 

CUMMON/HP2/  ID. IG, IP. IND. ISO, ISTAPT . JA, JR, JC,K.LP.MAXD»MONO,MS. 


COMM0N/HP3/ 

X 

CUMM0N/HP4/ 

X 

COMM0N/HP5/ 
CoMMON/HPb/ 
COMM0N/HP7/ 
COMM0N/HP8/ 
CUMM0N/HP9/ 
COMMON/HP  10/ 
CUMMON/HP1 1/ 
COMMON/HP  12/ 
COMMON/HP  13/ 
COMMON /HP  14/ 
COMMON /HP  15/ 
X 

COMMON/hP 16/ 
COMMON/HP  17/ 
COMMON/HP  18/ 
CUMM0N/HP19/ 


nix.nloop.nsd.nso.nstr.nux 

NOS ,NM ( 30 ) .BEAM (30) ,ORFT (30) .AREA (30) ,MP5(30) . 

A VBM ( 30 ) ,ST (30) , IN (30) .SOAR (30) , X ( 30 » 20 ) . Y < 30 . 20 ) 
NUT. NON, NOE. XS( 20) ,YS(20),XX<19),YY<19) .DEL (19) . 

SNE (19) ,CSE (19) 

VOL.XlP.OST  »PST .BAM.DRT .AIR, AMP  1 , AMP 2 .OS ( 30 ) ,SS(30) 
NOW.NOL.NSP.NST .WINK (5)  .SHLT(b) .SPEED (8) .ST  AT (20) 
NFN.NFNS.FN (6) ,FNS(6> 

NBTA,NBTAS,NBTAT,NBIAQ,WANG(8) .COSHET (3) .SlNRLT (3) 

NFR .NFRS.OMEN ( 30 ) ,OMENS(30) , OMIN, UMAX, DOME .OWAX 

XZFO.XZVL.XZHB.XZPH.KV.KW 

CHRDA.THKA.SPNA, FAL.XZFA.CLFA.DE PA, FAY 

CHRDB.THKB.SPNR.FBL.XZFB.CLFH.DEPB.FBY 

GRAV.DEPCAT.SD(b)  « RBMST (10) 

EL,GCB,GYR,RGY,VCG,BRCL»RF33,RP35.RM55 

A33(30) , A35 (4.30) ,A53(4,30) ,A55<4,30) »C35S,C55S* 

833(8,30.3) ,R35 (4,30,3) ,B53 (4,30,3) ,855(4,30.3) 

AHP ( 30 ) , DHP (4.30) . AP ( 30 ) ,DP ( 4 , 30 ) 

OMEGA, UN. PAH (19) ,PVH (19) 

BLOG (19, 19) « YLOG (19.19) 

KASE (4) .MIL (4) , CWR1 (4) ,CWR2(4) ,WFR(4,3 0,3) , 


X WN (4,30,3) ,SWR (4.30,3) ,RWS(4.30,3) 

COMMON /HP20/  I I .EFH (4,30,3)  »£MP (4,30,3)  ,EMK (4,30, 3) 
COMPLEX  II.EFH.EMP 


END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 

COMMON/ENDCOM/ENUCOM 
C 

DATA  PATT/bHMOT35  ,bH  HEA.bHVE  AND , bH  PITCH, bH  MOTlO.bHNS  OF  , 
X bHP AGE  / 

DATA  I ST  ART /0/ 

N3TAS=0 

JO=0 

GO  TO  1001 
CALL  FLAGSV 
CALL  PLOTDD 
1001  CONTINUE 

CALL  AETSKC (5LMUT35) 
tNU 
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noon  ooononoonnoo 


UVERLAY(l.O) 

PROGRAM  MOT 35 

HPM  - CATAMARAN  VERSION  OF  YF17  FOR  ARBITRARY  HEADING 

OFFSETS  MUST  BE  READ  IN.  THE  X AXIS  IS  THE  TRANVERSF  BASE  LINE  OF 

S I AT  ION  10.  THE  Y AXIS  IS  THE  VERTICAL  CtNTER  LINE  OF  STATION  10. 

Y IS  POSITIVE  UP  AND  X IS  POSITIVE  TO  THt  RIGHT. 

LOOKING  FORWARD  ON  THE  STARBOARD  HULL  AND  STARTING  AT  THE  Bow  THE 
OFFSETS  ARE  READ  IN  COUNTER-CLOCK  WISE  A STATION  AT  A TIMF. 

HULL  SEPARATION  DISTANCE  MUST  ALSO  Bt  GIVEN.  IT  IS  IDENTIFIED  AS 
SD(NSO)  WHERE  NSD  IS  THE  NUMBER  OF  HULL  SEPARATIONS  TO  BE  RIJN. 

THE  HULL  SEPARATION  IS  THE  DISTANCE  FROM  THE  CENTER  LINE  OF  THE 
CATAMARAN  TO  THE  CENTER  LINE  OF  STATION  10. 

COMMON /HP  1 / NPAG.TI TLE (8) »PATT ( 7 ) .RATIO 

COMMON/HP2/  ID. IGt IP* I NO. ISO. I SI  ART  . JA. JB . JC . K . LP . M AXD . MONO . MS . 

X NIX  «NLOOP  .NSD.NSO.NSTR. NUX 

COMMON/HP3/  NOS«NM(30)  *BEAM(30) »DrF  T ( 30 ) ,AREA(30> ,MPS<30)  , 

X A VBM ( 30 ) ,ST (30) ,IN<30) » SOAR (30) . X ( 30  ♦ 20  > . Y ( 30 . 20  > 

COMM0N/HP4/  NUT  » NON  « NOE  » XS (20 ) ,YS(20),XX(19),YY(19) .DEL ( 19) . 

X SNE (19) . CSE (19) 

C0MM0N/HP5/  VOL.XlP.DST.PST.RAM.ORT.AIR.AMPl ,AMP2.DS(30) .SS<30) 
C0MM0N/HP6/  NOW.NOL.NSP.NST.WINK (5)  . SHL  T (6) .SPEED  US) .ST  AT (20) 
COMMON/HP7/  NFN.NFNS.FN (6) .FNS(G) 

CUMMON/HP8/  NBT  A ,NBT  AS.NBTAT . NB  T AO  » w ANG ( ft ) .COSBET (3)  .SINRET (3) 

COMM0N/HP9/  NFR.NFRS.OMEN (30) .OMENS (30) .OM IN  » UMAX , DOME . UWA  X 

COMMON/HPIO/  XZFO.XZVL.XZHB.XZPB.KV.KW 

COMMON/HP1 1 / CHRDA. THKA.SPNA .tal.xzf a.clfa.depa.fay 

COMMON /HP  12/  CHRDB.  THKB.SPNR.FBL.XZFB.CLFB.DEPB.FBY 

CUMM0N/HP13/  GRAV.UEPCAT » SD ( 6 ) . RBMST (10) 

CUMMON/HP14/  EL.GCB.GYP.RGY. VCG.BRCL.RF33.RP35.RMSS 
COMM0N/HP15/  A 33 ( 30 ) ,A35<4.30)  ,AS3<4.30) , ASS (4,30) .C3SS.CS5S. 

X B33 (4,30,3) ,B3S( 4,30,3) ,Bb 3 (4, 30.3) ,B5S (4,30,3) 

COMMON/hP 16/  AHP ( 30 ) ,DHP (4,30)  ,AP(30)  » DP (4. 30) 

CUMMON/HPI 7/  OMEGA , UN, PAH ( 19) .PVH ( 19) 

COMMON/HP  IB/  BLOG (19, 19) ,YL0G(19.19) 

COMMON/HP  19/  K ASE ( 4 ) , M I L ( 4 ) ,CWR1  (4)  ,CWR2 (4 ) , WF R ( 4 , 30 . 3 ) . 

X WN (4,30.3) . SWR (4,30.3) »RWS (4,30,3) 

CUMMON/MP20/  II,EFH(4.30,3) ,EMP (4,30,3) ,EMK (4.30.3) 

COMPLEX  II.EFH.EMP 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 

COMMON/ENDCOM/ENDCOM 

DIMENSION  YJK (20) ,YBG(30) 

1 FURMAT(BA6) 

2 FURMAT (1215) 

3 FURMAT (8F 10.5) 

4 FURMAT (4F9.4.2I9) 

s format (1hi.14A6.18x.a6.I4/) 

6 Format ( 1H0.5X.5AHSTATION  10.0  NOT  GIVEN  - READ  INPUT  DATA  FOR  NEXT 
1 SHIP) 
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7  FORMAT (9F 10.5,215) 

8  FURMAT ( lh0»5X,23HCOMPUTED  FROUDE  NUMBERS) 

9  F ORMAT ( /*  DATA  INPUT  CARDS*/  1 OX . * 1 • »9X , »2* , 9X , *3* , 9A * *9* ,9X . 
X *5*»9X»*6*»9X»*7*,9X»*8*/1X»8(*12 39567 890*) ) 

90  FORMAT (8F9. 9) 

51  FORMAT <1X,8A6) 

52  FORMAT ( 1 X * 1215) 

53  FORMAT (1X,8F10.5) 

59  FORMAT ( 1X.9F 9.9,219) 

57  FORMAT ( IX* 9F 10. 5*215) 

200  FURMAT(lHOtll) 

3000  F ORMAT ( 12H1  END  OF  JOB) 

335  FORMAT (30X»9HSTATION  ,F9.9) 

78  NHAusO 

IF(JC.EQ.2  .AND.  NBTAS.GT.0)  CALL  AE T SKC ( 5LPGM 1 A ) 

ID  = 1 

Rt AD (5*1)  (TITLE ( I ) « 1=1 ,8) 

Rt AD (5*2)  MUNO.JA 
IF ( JA.LE.O)  GO  TO  77 
RtAD (5.3)  SCALE. GRAV 

RtAD (5.2)  NFR.NBTA.NFN.NSD.NSTR.NOS.NLOOP, IG.LH, IND 
RtAD (5.3)  (OMEN ( I ) .1=1 »NFR) 

Rt.  AD  ( 5 » 3 ) (WANG(I) »I=1,NBTA) 

Rt.  AD  (5.3)  (FN  ( I ) ,1  = 1 ,NFN) 

RtAD (5.3)  ( SD ( I ) .1=1 . NSD ) 

RtAD (5,3)  (RBMST ( I ) . 1=1 ,NSTR) 

Rt AD ( 5 » 3 ) HTDUM 
l)MIN=OMEN(  1 ) 

NBT  AT  =N8T  A 
NHTAS=0 

WANG ( NBT  AT ♦ 1 ) =777. 

NBT  AO  = 0 

DO  17  1=1 ,NBTA 

IF  (WANG(I) .LT.90.)  NBT  AO=NBT  AQ» 1 

17  CONTINUE 
NF RS=NFR 

DU  18  1=1, NFR 

18  OMENS ( I ) =OMEN ( I ) 

JC=  1 

IF  ( NBT  AO.NE . 0 ) JC=2 
JB=  1 

DO  19  1=1, NFN 
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F.MS  < I ) =FN  ( I ) 
NF  NS=NFN 
K ASE ( 1 > =0 
Nf'AG=NPAG*  1 


WRITE (6,5) 
WRITE (6,9) 
WRITE (6,51 ) 
WRI TE (6,52) 
WRITE (6,53) 
WRITE (6,52) 
WRITE (6,53) 
WRITE (6,53) 


(PATT ( I ) ,1=1,6) , (TITLt ( I ) ,1=1 ,8) ,PATT (7) ,NPAG 

(TITLE(I) .1=1.8) 

MONO, JA 
SCALE. GRAV 

NFR,N8TA,NFN,NSD»NSTR,N0S,NL00P, IG.LP, I NO 
( OMEN ( I ) ,1=1, NFR) 

( WANG ( I ) , I = 1 , NBT  A ) 
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W*ITE (6.53)  (FN( I ) » I»1 »NFN) 

WR I TE (b  *53)  (SO  < I > »I»1.NSD> 

WHI TE (6*53)  (RBMST(I) »I*1,NSTR) 

WHITE (6*53)  HTOUM 

IF  < SCALE. LE.O.  ) SCALE*1. 

IF  (GRAV.LE.O.)  GRAV-32.174 
IF (NSO.GE.l)  GO  TO  79 
NSU=  1 

som*o. 

79  IF  (JC.NE.2)  GO  TO  43 
IF  (JA.NE.2)  GO  TO  43 
IF (NFM.GE.l)  GO  TO  144 
JB*  1 

FN ( 1 ) *0 . 0 
GO  TO  43 
144  CONTINUE 

FOLLOWING  OR  QUARTERING  SEA  CASE 

RE  AO  IN  HOUNDS  FOR  RWS  AND  DELTA  RWS 

< RwS  IS  REAL  WAVE  LENGTH  / LENGTH  OF  SHIP) 

STORt  BOUNDS  IN  RWS(l.N.l)  N=1»NB 

INCREMENTS  RWS ( 2 . N . 1 ) N=1»NB-1 

NUMBER  OF  BOUNDS  IN  RWS( 3.1*1) 

BOUNDS  MUST  BE  IN  ASCENDING  ORDER  FROM  MINIMUM  TO  MAXIMUM 

RL A J ( S * 3 ) (RWS ( 1 «N. 1 > »N=i .8) 

Rt AD (5.3)  (RWS(2.N.l) .N=l*8) 

RtAD (5.3)  OMIN, UMAX, DOME 

C 

NB  = 0 

DO  301  1 = 1. B 

IF (RWS(l.I.l).LE.O.O  ) GO  TO  302 
NB=NB* 1 

301  CUNTINUE 

302  CONTINUE 

RWS (3.1.1) =NB 
C 

WRITE (6.3)  (RWS(l.N.l) *N=1.NB) 

NB=NB- 1 

WH I TE ( 6 . 3 > (RWS(2.N.l) «N=I.NB) 

WH I TE ( 6 . 3 ) OMIN. UMAX. DOME 
C 

43  Rt  AD  ( 5 . 3 ) EL.GYR.GYRT  .GCB.VCG.GMT  , OEPCAT  ,BRCL 

RtAD (S. 3)  FAL.FAY.UEPA.CHRDA.SPNA.THKA.CLFA.XZF  A 
RtAD (5.3)  FBL.FBY.UEPR.CHRDB.SPNB.THKB.CLFB.XZEH 
RtAD (5.7)  XZFO.XZVL. XZHB .XZPB.KV.KW 

RtAD (5.4)  (ST ( I ) .BEAM ( I ) .DRFT(I) . AREA ( I ) ,NM(I) ,MPS(I) .1=1, NOS) 

WHITE (6.53)  el.gyr.gyrt.gcb.vcg.umt.uepcat.brcl 

WHITE (6.53)  F AL. F A Y, DEPA .CHROA,  »TNA, THK A, CLF A, XZF A 

WHI TE (6,53)  FBL.FBY.DEPB.CHROR.SPNB.THKB.CLFB.XZFB 

WHITE (6.57)  XZFO.XZVL. XZHB. XZPB.KV.KW 

WHI TE (6,54)  (ST ( I ) .BEAM ( I ) .ORFT ( I ) .AREA ( I ) ,NM< I ) , MPS ( I ) . 1=1 .NOS) 
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RGY-GYR 

MS*0 

DU  30  I»l.NUS 

IF (ST(I) .NE.10.)  GO  TO  30 

HS»I 

GO  TO  31 

30  CONTINUE 
MS*0 

31  Nl X*NM ( 1 ) 

DU  10  1=2. NOS 
IF  (NlX.GE.NM(I) > GO  TO  10 
Nl  X=NM ( I ) 

10  CONTINUE 

I N ( 1 ) * I A8S (NH ( 1 ) ) 

NUX=IN(1) 

DU  20  1=2. NOS 
IN(I)*IXBS(NH(I) > 

IF (NUX.GE.IN(I) ) GO  TO  20 
NUX  = I N ( I ) 

20  CONTINUE 

DU  21  1=1 »N05 

Bt  AM ( I ) =BEAM ( I ) *SCALE 

21  DPFT(I)=DRFT(I)*SCALE 
IF (NUX.LE.O)  GO  TO  13 

npag=npag*i 

WRITE (6,5)  (PATT(I)  *1  = 1*6)  . (TITLE  (I)  *1  = 1*8)  »PATT  (7)  .NPAG 
K I M=0 

DU  11  1=1 *NOS 
YBG ( I ) =0  » 

IF ( IN ( I ) .LE.O)  GO  TO  11 
LtE= 3 
NUT=IN ( I ) 

IF (NUT.LE.8)  GO  TO  1A 
LtE=5 

1<*  K1M=KIM*LEE 

IF (KIM.LE.50)  GO  TO  15 

K1M=LEE 

NPAG=NPAG»1 

WRITE (6.5)  (PATT(J) ♦ J=1 *6) * (TITLt(J) *J=1*B) »PATT ( 7 ) *NPAG 
15  WR I TE (6 » 335)  ST ( I ) 

RtAD(S.AO)  (X(I.J) *J=1*NUT) 

READ (5 . AO ) ( Y ( I « J ) * J= 1 .NUT ) 

WRITE(6,A0>  <X(I*J) *J*1.NUT) 

WRITE(6.A0)  (Y(I*J)»J=1 .NUT ) 

DU  165  J= 1 .NUT 
X(I*J)*X(I.J)*SCALE 
Y(I.J)=Y(I.J)*SCALE 
165  YJK ( J) =Y ( I *J) 

YLGS=XMAX (NUT .YJK) 

YSML=XMIN (NUT. YJK) 

DHFT(I)=YLGS-YSML 
YBG ( I ) =YLGS 

11  CONTINUE 
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13  IF  (SCALE. EO.l.)  GO  TO  23 
El*EL*SCALE 
VCG= VCG*SCALE 
G*T=GMT*SCALE 
DtPCAT=DEPCAT*SCALE 
BRCL=BRCL*SCALE 
DU  22  1=1 *NSD 

22  SO(I)*SO(I)*SCALE 

23  RtAD (5*2)  NUW.NOL*NSP.NST 
IF (NOW.LE.O)  GO  TO  75 

RtAD (5*3)  (WINK (I) *1=1 *NOW ) 

READ15.3)  (SHLT ( 1 ) *1=1 *NOL) 

RtAO (5»3)  (SPEED(I) ,I=1*NSP) 

RtAO (5*3)  ( ST AT  < I ) »I=l,NST) 

WR I TE ( 6 » 3 ) (WlNMI) ,1  = 1. NOW) 

WRITE (6*3)  (SHLT(I) .1  = 1, NOL) 

WRI TE (6*3)  (SPEED ( I ) • 1=1 *NSP) 

WR I TE (b ♦ 3 ) (STAT < I > . 1=1 *NST > 

NFN=NOL*NSP 

IF (NFN.GT .4  .OR.  JB.EQ.3  .OR.  JA.NE.l)  GO  TO  77 

OwAX=OMAX 

WRITE (6*8) 

JJ=0 

F AC  T= 1 ,688 

IF (GRAV.LT.32. ) FACT=.3048»FACT 
DU  150  L=1 *NOL 
DO  150  M= 1 , NSP 
jj=jj*l 

150  FN< JJ)=FACT*SPEED(M) /SORT (GRAV*SHLT (L) ) 
white (6*3)  (fnuj)  *jj=i*nfn» 

75  IF (MS.NE.O)  GO  TO  69 
WRITE (6.6) 

GU  TO  78 

69  DUM=XMAX <NOS*YBG> 

DO  16  1=1 «NUS 
NOT  = IN ( I ) 

ic  (NUT.LE.O)  GO  TO  16 
DU  12  J=1 »NUT 
12  Y(I.J)=Y(I.J)-l)UM 
16  CONTINUE 

CALL  AETSKC (ALPGM1 ) 

77  IF (LP.LE.O  .AND.  IP.LE.O)  GO  TO  80 
tNDFILE  48 
LNDFILE  48 
REWIND  48 

80  IF ( INU.EU.O)  GO  TO  777 
1 = 777 

WRITE (22)  I . I « I 
EMOFILE  22 
RtWlNO  22 
777  WR I TE ( 6 * 3000 ) 

END 
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FUNCTION  XMIN <N* X ) 
DIMENSION  X ( 30 ) 

X*IN*X(I> 

IMN.LE.1)  GO  TO  4 
DU  2 K=2 »N 

IC (XMIN.LT.X(K) ) GO  TO  2 
XMIN*X(K) 

2 CONTINUE 

4 RtTURN 

E'tD 


FUNCTION  XMAX<N*X) 
DIMENSION  X ( 30 ) 

1 XMAX=X(1) 

IMN.LE.l)  GO  TO  4 
DU  2 K=2»N 

Jr  (XMAX-X  < K > ) 3»2*2 

3 X^AX=X(K) 

2 CONTINUE 

4 RtTURN 
EmU 


FUNCTION  SI MPUN ( X * Y t N ) 

DIMENSION  X <50 ) * Y (50) 

S  = 0. 

N >|aN“  1 

DU  1 J= 1 «NN 

1 s =S» ( X ( J* 1 ) -X(J) )*(Y (J) ♦ Y < J ♦ 1 ) )*0»5 
SIMPUN=S 
RcTURN 
EmD 
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o o r>  o 


c 


OVERLAY (2,0) 
PROGRAM  PGMl 


CuMMON/HP 1/ 
CUMHON/HP2/ 

< 

CUMMON/HP3/ 

( 

CUMM0N/HP4/ 

( 

CUMMON/HP5/ 
CUMM0N/HP6/ 
CUMMON/HP7/ 
COMMON/HP8/ 
CUMMON/HPR/ 
CUMMON/HPIO/ 
CUMMON/HP1 1/ 
CUMM0N/HP12/ 
COMMON/HP  1 3/ 

COMMON /HP  14/ 
CUMMON/HP 1 5/ 

< 

CUMMON/HP 16/ 
CUMMOH/HP1 7/ 
CuMMON/HP 18/ 
CuMMON/HP 19/ 

< 

CUMMON/HP20/ 
COMPLEX  I I * tFH  * EMP 


NPAG.TITLE (8) .PATT ( 7 ) .RAT 10 

ID. IG, IP, INO, ISO, ISlART, JA, JB» JC.K.LP.MAXU.MONO.MS. 
NIX ,NLOOP ,NSD  »NSO ,NSTR ,NUX 

NOS , NM ( 30 ) .BEAM (30) »DRF  T (30) .AREA (30) ,MPS (30) . 

AVBM ( 30 ) .ST (30) , IN (30) .SOAR (30) , X ( 30 .20 ) . Y ( 30 ,2U ) 
NUT .NON.NOE.XS (20) . YS ( 20 ) . XX ( 1 9 ) , Y Y ( 1 9 ) .DEL (19) . 

SNE (19) ,CSE (19) 

VOL.XIP.DST ,PST .BAM.ORT .AIR*  AMP  1 , AMP2 , DS ( 30 ) ,SS(30) 
NOW ,NOL .NSP  »NST .WINK (5 ) ,SHLT(6) .SPEED(ft) .STATI20) 
NFN.NFNS.FN (6) ,FNS<6> 

NBTA,NBTAS.NBTAT .NBTAO.wANG(fl) .COSBET (3) .SINPET (3) 
NFR.NFRS, OMEN ( 30 ) ,OMENS(30) , OM IN , UMAX , DOME ♦ OWAX 
XZFO.XZVL.XZHB.XZPH.KV.KW 
CHROA.TMKA.SPNA.FAL.XZF A.CLF A.OEPA.FAY 
CHROR.THKB.SPNB.FBL.XZFB.CLFR.OEPB.FBY 
GRAV.OEPCAT.SO(b) .RBMST (10) 

EL.GCB.GYR.RGY, VCG.BRCL.RF33.RP15.RM55 

A33  ( 30 ) , A35  (A  , 30 ) ,A53(4.30>  ,A55(4,30)  .C35S.C55S, 

H33 (4  » 30  » 3 ) ,B3S  (4.30,3)  ,853(4,30,3)  ,855(4,30.3) 

A HP (30) ,OHP<4,30> , API  30)  , UP (A, 30) 

OMEGA  »UN ,P AH ( 19)  ,PVH<19> 

BLOG (19,19) « YLOG (19,19) 

KASE (4) , Ml L <4 ) « C WR 1(4) .CWR2 (4) ,WFR (4,30.3)  . 
WNI4.30.3) « SWR (4,30.3) ,RWS (4,30,3) 

1 1 .EFH (4 , 30 , 3) ,£MP (4,30.3) ,EMK (4,30.3) 


END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CAROS) 

COMMON/ENDCOM/ENOCOM 

DIMENSION  SAS ( 30 ) ,SHB(30) ,HSB(30) , X 1 ( 20 ) , Y 1 ( 20 ) 

DIMENSION  F J ( 30 ) , VCBS ( 30 ) 

1 FORMAT ( 1H0.7X,*LENGTH  BETWEEN  PERPENDICULARS  = * ,F  1 0 .5 . 1 X , Aft ) 

2 FORMAT (22X.*BEAM  at  MIDSHIP  = *,F 10.S, 1X.A6) 

3 FORMAT (21X,*DRAFT  AT  MIDSHIP  = *,F 1 0.5, 1 X , A6) 

4 FORMAT (25X, 15HOISPLACEMENT  = F10.3.10H  LONG  TONS) 

5 FoRMAT<1H1,14A6.18X,A6,I4/> 

ft  FORMAT (20X.20HBLOCK  COEFFICIENT  = F10.5) 

7 FORMAT (6X.*L0NGITUDINAL  CENTER  OF  BOO Y ANC Y = * . F 1 0 .5 « 1 X , Aft , 1 X , 

X *AFT  OF  F.P.*) 

8 FORMAT (ftX.34HLONGITUDINAL' CENTER  OF  BUOYANCY  a F10.5.9H  STATIONS) 

9 FORMAT (5X,*LONGITUDINAL  CENTER  OF  FLOTATION  = * ,F 1 0 .5 . 1 X , A6 , 

X * AFT  OF  F.P.*) 

10  FORMAT (5X.35HLONGITUDINAL  CENTER  OF  FLOTATION  = F10.5.9H  STATIONS) 

11  FORMAT(10X.*VERTICAL  CENTER  OF  BUOYANCY  = * ,F 1 0.5, 1 X . Aft , 

X * FROM  THE  DESIGNED  LOAD  WATERLINE*) 

11  FORMAT (12X.2RHRAOIUS  OF  GYRA T I ON/L .B .P . = F10.5) 

12  FURMAT (44H0  STATION  BEAM  DRAFT  AREA  COEFFICIENT) 

13  FURMAT (4F9.4) 
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14  FORMAT <6X, 10HSTATION  = F9.4,6X.30HAREA  COEFFICIENT  CHANGED  FROM  FI 
10.<».2X.2HT0.2X»F10.4> 

15  FORMAT ( 1H0) 

69  FORMAT ( 1 3X * 27HGI VEN  CENTER  OF  BUOYANCY  = F10.5.9H  STATIONS) 

90  FORMAT < 3F9.4.E15.8) 

92  FORMAT (lN0»5Xt30HMlNIMUM  CRITICAL  ENC.  FREQ.  = F8.4.16H  DUE  TO  STA 
1TION  F7.4) 

206  FORMAT ( 1H0«30X»23H***DATA  FOR  ONE  HULL***) 

300  FORMAT (27X«13HBEAM/DRAFT  = F10.5) 

301  FORMAT (26X» 14HLENGTH/BEAM  =»  FlO.b) 

66  FURMAT(1H0«5X»41HTHE  HEAVE-HEAVE  RESTORING  COEFFICIENT  IS  F10.5/6X 
1 » 4 1 HTHE  HEAVE-PITCH  RESTORING  COEFFICIENT  IS  F 10.5/6X.41HTHE  PITCH 
2-PITCH  RESTORING  COEFFICIENT  IS  FlO.b) 

193  FORMAT (6X.32HCRITICAL  ENC.  FREQ.  FOR  STATION  .F7.4.3H  = F8.4) 
UNITS=6HFEET 

IF (GRAV.LT. 32.)  UNITS=6HMETERS 
FST=EL/20. 

DO  16  K=l,NOS 

IF (IN(K).GT.O)  GO  TO  17 

SOAR ( K ) = ARE A (K) *BEAM(K) »DRFT ( K ) 

VCBS(K) =0. 

GO  TO  20 

17  NUT= IN  (K  ) 

VCBS ( K ) =0 . 

VCBA=0. 

VCBB=0 . 

DO  18  J= 1 . NUT 
Yi (J)=Y ( K * J ) 

18  XI (J)=X(K»J)  ♦ SU ( 1 ) 

YSML  = XMIN (NUT  « YI  ) 

DO  190  IJI=:»NUT 
NNN=I JI 

IF (YSML.EQ.rl (IJI))  GO  TO  191 

190  CONTINUE 

191  I J I =NNN 

IF  (MONO  .GT.  1 ) GO  TO  199 
I J= I J I - 1 
Do  122  J=1.IJ 

122  VCBA=VCBA» ABS ( <X(K.J)*X(K,J*1>) * ( Y ( K » J ) **2- Y < K » J» 1 ) **2 ) ) *0.25 
SUER=SIMPUN (YI .XI , I JI ) 

SOER= ABS ( SQEP ) 

Do  195  JJJ= IJI »NUT 
IF (JJJ.EU.NUT)  GO  TO  127 

VCBB=VCBB  + ABS ( (X (K, JJJ) *X (K. JJJ»1 ) ) * < Y <K. JJJ) **2- Y ( K , J J J*  \ ) **2) ) * 
*0.25 

127  CONTINUE 

K6K=JJJ-IJI*1 
Xi (KKK)=XI (JJJ) 

195  Yi (KKK ) =Y I (JJJ) 

SOER2=S I MPUN (YI.XItKKK) 

IF  (MONO-1 ) 56 .57  » 199 
56  SOAR (K)=ABS(SQER2> -SUER 
VCBS (K)=VCHS(K) *VCBB*VCBA 
GO  TO  55 
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57  SUAR(K)*SQER  ♦ SQER2 

IMXIK.II  .LE.  0.  .AND.  XIK.NUT)  .LE.  0.)  GO  TO  59 
VCHS(K)3VCBS(K) ♦VCBB*VCBA 
GO  TO  55 

59  VCBS(K)=VC8S(K) ♦VCBA-VCBB 
GO  TO  55 

199  SOER»SIMPUN(YI.Xl,NUT) 

SOAR (K ) =2 .*ABS  < SQER ) 

NATsNUT-l 
DO  125  J=1.NAT 

125  VCBS(K)  =VCBS(K) ♦0.25*ABS( <X(K,J)*X(K.J»1)>*<Y<K.J) **2-Y ( K » J* 1 ) ** 
12)  ) 

VCBS (K)=2.#VCBS(K) 

55  00  196  J=l.NUT 
Y 1 <J)=Y(K.J) 

196  XI ( J)=X (K.J) 

Bt  AM ( K ) =ABS ( X I (NUT) -XI (1)  ) 

IF (MONO.GT.l ) BEAM (K ) = 2 • *RE AM ( K ) 

IF  (BEAM(K) .NE.0.0)  GO  TO  600 
AKEA ( K ) = SQAR <K) /DRFT (K) **2 
X(K»l)sX(K»l)— 0.001 
Xi t 1 ) = X ( K * 1 ) 
oO  TO  20 

600  AREA <K)=SQAR(K)/ (BEAM (K)*DRFT(K) ) 

20  SS(K)=FST*ST (K) 

16  SAS(K)=SS(K)*SQAR(K) 

KRK  = 0 
Lb0=0 

IF (NIX.GT.O)  GO  TO  21 

DO  32  K=l,NOS 

IF (NM(K) .GT.O)  GO  TO  32 

IF ( (BEAM(K) .LE.O. ) .OR. (DRFT <K> .Lt.O. ) ) GO  TO  32 
A1R=AKEA (K) 

PAT=0.5*BEAM(K)/DBFT IK) 

TAR=1 .0/RAT 

If (kAT.LE.1.0)  GO  TO  33 
BL  = 0. 29456*  <2. 0-TAR > 

GU  TO  34 

33  BL=0. 29456* (2.0-RAT) 

34  UL=0.098125*(RAT>TAR*10.0> 

IF (AREA (K) .GT.BL)  GO  TO  35 
AREA (K) =BL*0.0001 

GO  TO  36 

35  IF  (AREA (K) .LT.UL)  GO  TO  32 
AREA(K)=UL-0.0001 

36  IF (KPK.GT.O)  GO  TO  37 
KPK=KPK*1 

nrag=npag*i 

WHITE (6.5)  (PATT(I) ♦ I* 1 .6) * < T I TLE < I ) ♦ I =1 »8> .PATT<7) .NPAb 
WHITE (6* 15) 

37  WHITE(6.14)ST(K) .AIR.AREA(K) 

LbO=LSO*l 

SuAR(K)=AREA(K)*BEAM(K)*DRFT (K) 

SAS(K)=SS(K)*SQAR(K) 

32  CONTINUE 
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21  If  (NUX.LE.O)  GO  TO  25 
If (KPK.GT.O)  GO  TO  93 
NHAG=NPAGM 

WHITE (6,5)  (PATT ( I ) , 1=1 ,6) ♦ (TITLE (I) *1=1*8) ,PATT (7) ,NPAG 
93  WKITE(6,12> 

DO  22  K= 1 » NOS 

If ( I N ( K ) .LE.O)  GO  TO  22 

LSD=LSU*1 

If  (AREA (K) .LT. 1000.0)  GO  TO  91 

WH I TE (6 ,90 ) ST (K ) »BEAM ( K ) , DRF  T ( K ) » AREA  ( K ) 

GO  TO  22 

91  WHITE (6, 13) ST (K) * BEAM ( K ) »DRF  T (K ) ,AREA(K) 

22  CONTINUE 

If  (NIX. LE.O)  GO  TO  25 

ox=ioo.o 

If  ( LSD.LT .23 ) GO  TO  201 
NPAG=NPAG*1 

WHITE (6,5)  (PATT ( I ) , 1*1 ,6) , (TITLt <I)*I=1,8),PATT(7> ,NPAG 
201  WHITE (6,15) 

DO  23  K=l,NOS 
If  ( NM ( K ) .LE.O)  GO  TO  23 
IF  ( BE AM ( K ) .NE.  0.0)  GO  TO  601 
f J(K)  = 0.0 
OO  TO  602 

601  CONTINUE 

A=3. 1415927«0RFT ( K ) /BEAM ( K ) 

A=A/TANH{A) 

FJ(K)=SQRT  (A*EL/ORFT  (K)  ) 

602  CONTINUE 

If  (FJ(K) .GT.UX)  GO  TO  233 

UX=F J (K ) 

JUHIM  = K 

233  WkITE (6,193)ST (K) ,FJ(K) 

23  CONTINUE 

WHITE (6,92) OX, ST (JOHN) 

25  CONTINUE 

30  VOL=SIMPUN (SS, SOAR, NOS) 

IF (BEAM (MS) .EO. 0.0)  GO  TO  703 
BLOCK* VOL/ <EL*BEAM (MS) *DRFT (MS) ) 

GO  TO  704 

703  BLOCK  = 0 . 0 

704  CONTINUE 

VLB=SIMPUN(SS,VCBS,N0S) /VOL 
R0Y=SIMPUN(SS,SAS,N0S) /VOL 
GYR=RGY**2 
CBL=BOY/FST 

If (GCB.LE.0.0)  GO  TO  68 
BoY=FST*GCB 
68  00  19  K=l,NOS 

SHB (K)=(SS(K)-BOY) *BE AM ( K ) 

19  HSB(K)=(SS(K)-BOY)*SHB(K) 

AMP1=SIMPUN(SS,BEAM,N0S) /EL**2 
AMP2=SIMPUN(SS,HSB»N0S) /EL**4 


t 
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Rf  33=EL**3#AMP  1 / VOL 

RM55=EL**3*AMP2/V0L  - ABS < VCB* VCG) /EL 

RH35=SIMPUN(SS.SHB.NOS) /VOL 

CFL=BOY*EL»RP35/RF33 

FlC*CFL/FST 

PST=FST*CBL 

FACT=35. 89744 

If (GRAV.LT.32.)  FACT=.02832*FACT 
VUL=VOL/F ACT 
NHAG=NPAG* 1 

WHITE (6*5)  (PATT ( I ) . 1 = 1 .6) * (TITLt(I) »I=l»8).PATT(7>.NPAO 
WHITE (6.206) 

WkITE(6.1)  EL. units 
WHITE (6.2)  BEAM(HS) .UNITS 
WH I TE  < 6 « 3 ) ORFT (MS) .UNITS 
WHITE (6.4) VUL 
VUL=VOL*FACT/EL**3 
WHITE (6,6)BLUCK 
WHITEI6.7)  PST. UNITS 
WHITE  <6,8)CBL 
IF (GCB.LE.0.0)  GU  TO  67 
WHI TE (6 , 69 ) GCfl 
P5T=FST*GCB 

67  WH 1 TE ( 6 *9 ) CFL. UNITS 
WHITE ( 6 . 1 0 ) FLC 
WHITE (6, 1 1 1 ) VCR. UNITS 
WH I TE ( 6 , 1 1 ) RG  Y 
BUR=BEAM (MS) /DRFT (MS) 

WHITE (6,300)BDR 

II-  (BEAM(MS)  .EQ.0.0)  GO  TO  700 

EUBR=EL/BEAM(MS) 

GU  TO  701 

700  ELBR=0.0 

701  CONTINUE 

WHITE (6,301 >ELBR 

WHl TE (6,66)  RF33.RP3S.RM55 

DU  31  K = 1 » NUS 

S'i  ( K ) = SS  ( K ) /EL 

SOAR (K ) =SQAR ( K ) /EL**2 

BtAM ( K ) =BE AM (K) /EL 

DhFT ( K ) =DRFT <K  > /EL 

If  (NM  (K ) .LE.0)  GO  TO  31 

NUT  = IN ( K ) 

DU  24  J=1 .NUT 
X(K,J)=H(K,J)/EL 
24  Y(K.J)=Y(K.J)/EL 
31  CONTINUE 
P5T=PST/EL 
FAL=FAL/EL 
FBL=FBL/EL 
FAY=FAY/EL 
FBY=FBY/EL 

CALL  NILS ( NOS .MS ,5T .DS.JFK) 

If ( JFK.GT.0)  GO  TO  76 


31 


non 


ID=-1 
GU  10  77 

76  It-  (OMIN.LE.O.O.OR. JA.EQ.3)  GO  TO  77 
TRANSFER  TO  LOOP  TO  CALL  PGM2  AND  PGM3 
CALL  AETSKC (5LPGMI A) 

77  CONTINUE 

It-  (ID. EG. 2 .OR.  IO.EQ.-l)  CALL  AtTSKC (5LM0T35) 
CALL  AETSKC (4LPGHA) 

End 


noon 


OVERLAY (3,0) 

PROGRAM  PGM1H 
C 
C 

COMMON/HP  1/  NPAG.  TITLE <81  ,P ATT ( 7 > .RAT  10 

COMM0N/HP2/  ID. IG. IP. INO. ISO. I ST  ART  » JA, JR, JC  . K ,LP .MAXD .MONO , MS , 

X nix.nloop.nsd.nso.nstr.nux 

CUMM0N/HP3/  NOS  »NM ( 30 ) ,BEAM<30) »DRF T (30) .AREA(30) ,MPS<30) . 

X AVBM  ( 30 ) .ST (30) t IN ( 30) ♦ SOAP (30) . X ( 30 ,20  > . Y < 30 .20  > 

CUMM0N/HP4/  NUT .NON, NOE. XS (£0) .YS(20),XX(19),YY(19),UEL(19). 

X SNE < 19) ,CSE < 19) 

CUMMON/HPS/  VOL.XIP.DST.PST .BAM.DRT .AIR,AMP1 .AMP2.0S (30) ,SS<  30) 
CUMM0N/NP6/  NOW. NOL.NSP.NST. WINK (5) . SHL T (6) .SPEED (6)  .ST  AT (20) 
CUMM0N/HP7/  NFN.NFNS.FN (6) ,FNS<6) 

COMMON/HPft/  NBTA.NBTAS.NBTAT.NBTAO.WANG (8) .COSBET (3) .SlNBET (3) 
CUMM0N/HP9/  NFR.NFRS. OMEN ( 30 ) ,OMENS(30) .OMIN. UMAX. DOME .OWAX 
COMMON/HP  10/  XZFO.XZVL.XZHB.XZPR.KV.KW 
COMMON /HP  11/  CHROA.THKA.SPNA.FAL. XZF A.CLF A.DEPA.F AY 
COMMON/HP  12/  CHROR.THKB.SPNB.FBL. XZF B.CLFB.DEPB.FBY 
CUMMON/HP 13/  GRAV.OEPCAT ,S0 (6) .RBMST (10) 

COMMON/HP  14/  EL.GCB.GYR.RGY. VCG.BRCL.RF33.RP35.RM55 
COMMON/HP  15/  A33 ( 30 ) ,A35(4,30) ,A53(4.30) ,A55(4,30)  .C35S.C55S. 

X 833(4.30.3) .B35 (4,30.3) .853(4,30,3) ,855(4,30,3) 

COMMON/HP16/  AHP ( 30 ) , DHP (4,30) ,AH(30) ,DP(4,30) 

COMMON/HP1 7/  OMEGA. UN. PAH(19) ,PVH<19) 

COMMON/HP  18/  BLOG (19. 19) ,YL0G(19,19) 

COMMON/hP 19/  KASE(A) .MIL (4) ,CWR1 (4) ,CWR2(4) , WFR (4 , 30 , 3 ) , 

X WN (4  « 30  « 3 ) , SWR (9,30,3) ,RWS(4.30,3> 

CUMMON/HP20/  II»EFH(4,30.3) .EMP (4.30,3) .EMK (4,30.3) 

COMPLEX  ii.efh.emp 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CAROS) 

CUMMON/ENDCUM/ENDCOM 

c 

CUN=1 .688 

IF  (GRAV.LT. 32.)  CON= . 3048*C0N 
CUN=SQRT (GRAV*EL> /CON 
FACT=SQRT (GRAV/EL) 

FARljsO.  017453293 

BbU=BEAM (MS) *EL 

DU  205  I S0= I » NSD 

HHS=2.0* (SD< ISO) > -BSD 

IF  (BSD  .LE.  l.E-07)  GO  TO  88 

ratio=hhs/bsd 

GU  TO  87 
88  RAT IO=HHS 

87  IF (MONO  .GE.  1)  RATIO=0. 

SU(ISO)=SD(ISD)/EL 

IF  (ISO.GT.1)  FAY=FAY*SD(ISU>-SO<iSO-l) 

IF ( ISD.GT.1 ) FBY  = FBY*SD(  ISO) ~SD( ISD-1) 

CALL  AETSKC (5LQPGM2) 

IF ( IO.GT. 1)  GO  TO  77 
CALL  AETSKC (6L0PGM2B) 
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IF  CIO.GT  .1)  GO  TO  77 
CALL  AET SKC (5LQPGM3) 

IF(NOW.GT.O)  GO  TO  77 
5 FORMAT  ( 1 H 1 , 14A6«18X,A6, 14/) 

17?  FORMAT (5 X,*RELATIVE  ANO  ABSOLUTE  DISPLACEMENT,  VELOCITY,  Anp*, 
X • ACCELERATION  AT  STATION  *.F5.1) 

173  FORMATS  X,*SPEEO  =*,F5.1.*  KNOTS*) 

175  FORMAT (3X»*ENC  PER (SEC) *»6X,*REL  DlSPL*.*X, *ABS  DISPL*,12X, 

X *VEL*, 8X * • ACCEL/G* » 7X  , *W A VE  L/L*) 

177  FORMAT {5  X,F10.2,4(7X,F8.3),5X,F10.4) 

171  FORMAT (3 X,*MAVE  HEADING  =*,F6.2,*  DECREES*/) 

DO  150  K 1=1 ,NSTR 
RBMST K=R BMST  (Kl ) 

LINES=3 
NP AG=NPA G»1 

WRITE  (6,  5)  (PATT (I) , 1 = 1 ,6)  , (TITLE(I)  ,1*1,8)  ,PATT (7 ) ,NPAG 
WRITE (6, 172)  RQMSTK 
ARM=EL*<  PST-.05*RBMSTK) 

00  160  M M = 1 , NBT  A 
COSB=COS BET (MM) 

DO  160  J J = 1 , NFN 
LMT  = MIL<  JJ) 

IF(LMT.LE.O)  GO  TO  160 

LlNES=LI  NES  *LMT  *4 

IF ( L I NES . LE  . 60 ) GO  TO  140 

LINES=3 

NP A G=  NPA  G ♦ 1 

WRITE (6, 5)  (PATT  Cl) ,1  = 1 ,6) , (TITLE(I) ,1  = 1,8) ,PATT  CM  , N°  A G 
HR  I TE ( 6, 172)  RBMSTK 
140  SPIO=FN( JJ) *CON 

WRITE  (6,173)  SPIO 
WRITE(6,171)  WANG (MM ) 

WRITE (6, 175’ 

00  170  N = 1 , LMT 

WAVEN  = FA  CT*WFR( JJ.N.MM) 

WAVEN  = CO  SB* WAVEN*WAVEN/GRAV 
HEAVE  = REAL (EFH (JJ,N,MM) ) 

DELTA  = FARD*A  IMAG (EFH( JJ, N, MM)  ) 

PITCH  = REAL  (EMP( JJ,N, MM) ) *2. /EL 
EPSIL  = FAR0*AI MAG (EMP( JJ,N,MM)  ) 

ABMA  = HEA  VE*COS( DELTA) - A RM* P I TCH* C OS (EPSIL) 

ABMB  = HEA  VE*SIN (DELTA ) -ARM*PITCH*SIN (EPSIL) 

ABM0=SQR T (A8MA**2  ♦ A9M8**2) 

RLM A=  ABM  A - COS ( A RM* W A VE N ) 

RLMB=  ABM  B ♦ SI N ( ARM  * W A VEN ) 

RLM0=SQR T (RLMA**2  ♦ RLMB**2) 

OMEGAE=OMEN(N)*FACT 
ENCP  = 6,2  8 318  53/OMEGAE 
VEL  = OMEG AE* A8M0 
ACCEL=OMEGAE*VEL/GRAV 

170  WRITE  (6, 177)  E NCP , RLMO, ABMO , VE L , A CC E L , R WS ( J J , N , M M ) 

160  CONTINUE 
150  CONTINUE 
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: 

7 7 CONTINUE 

I c C I NO . L E « 0 ) GO  TO  78 
oo  a;  jj  = l » nfn 

DO  81  N* 1 » NFR 
no  81  HN ■ 1 » NBT  A 

« r EMP ( JJ.N ,MN»  *ENK(JJ«N»MM)tII*AIHAG(ENP(JJ,NfMM)) 

WRITE(22>  NFN.NFR.NeTA 

WRITE (22  > (FN(I  > , 1*1  , NFN)  , (OMEN ( I ) , I = 1 , NFQ > , ( WAN G ( I ) , I * 1 , N P T a ) 
w»I TE  (22  » ( ( (WFR ( JJ.N.MMI ,EFH(J J, N, MHI .Emd( jjf n, MM) , jj=l ,NFN| , 

X N=1,NFR> ,MM*1  ,N0TA) 

7 8 IF(JA.EQ.2»  CALL  AETSKC  (5LPGM1A ) 

IF ( I D . EQ  • 2 .OR.  IO.EQ.-l)  CALL  AE  T SK C ( 5L HD T 3 5 ) 

IF(LP.EQ.O  .AND.  IP.EO.O  .AND.  NOW.ET.O)  CALL  AETCKC (^LMOT 35> 
IF(LP.EQ.O  .AND.  IP.EQ.O)  call  AETSKC  (4LPr,H5) 

205  CONTINUE 
END 
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PROGRAM  QPGH2 
C 

CUMMON/HP1/  NPAG.TITLE (8) ,PATT(7) .RATIO 

COMMON/HP2/  ID.IG.IP.IND.ISD.ISTART  « JA« JB« JC.K.LP.MAXD.MONO.MS, 
X NIX  .NLOOP  »NSD  »NSO  »NSTR  »NUX 

CUHHON/HP3/  NOS  »NM ( 30 ) .BEAM (30) »DRFT (30) » AREA (30) .MPS(30> . 

X AV0M(3O) .ST (30) .IN (30) .SOAR (30) ,X (30.20) .Y (30.20) 

C0MM0N/HP4/  NUT. NON, NOE. XS( 20) .TS (20) .XX ( 19) , YY ( 19) .DEL (19) , 

X SNE (19) ,CSE ( 19) 

C0MM0N/HP5/  VOL.XIP.OST.PST.BAM.DRT.AIR.AMPI ,AHP2»DS(30) ,SS(30) 
COMM0N/HP6/  NOW.NOL.NSP.NST .WINK (5) »SHLT(6> .SPEED(6) .StAT(20) 
CUMMON/HP7/  NFN ,NFNS ,FN (6 ) ,FNS(6) 

COMM0N/HP8/  NBTA,NBTAS,NBTAT,NBTAQ,WANG(8) ,C0SBET(3) .SIN8ET(3) 
C0MM0N/HP9/  NFP ,NFRS .OMEN ( 30 ) .OMENS130) .OMIN.OMAX.DOME .OWAX 
COMMON/HP  10/  XZFO.XZVL.XZHB.XZPB.KV.KW 
COMMON/HP  11/  CHRDA.THKA.SPNA.FAL.XZFA.CLFA.DEPA.FAY 
COMMON/HP  12/  CHRDB.THKB.SPNB.FBL.XZFB.CLFB.DEPB.FBY 
CUMMON/HP 13/  GRAV.DEPCAT.SD (6) .RBMST (10) 

COMMON /HP  1 A/  EL.GCB.GYR,RGY,VCG,BRCL.RF33.RP35,RM55 
COMMON/HP  15/  A33 ( 30 ) ,A35(4,30>  ,A53<4,30) ,A55(4,30> .C35S.C55S, 

X B33 ( A . 30 , 3 ) , B35 ( A , 30  » 3 ) ,053(4,30.3) ,B55 (4,30,3) 

CUMMON/HP 16/  AHP ( 30 ) ,DHP(4,30) ,AP(30) ,OP(4,30) 

COMMON/HP  17/  OMEGA . UN » PAH ( 19 ) »PVH( 19) 

COMMON/HP  18/  BLOG (19, 19) ,YLOG( 19,19) 

COMMON/HP  19/  K ASE ( 4 ) .MIL (4) ,CWR1 (4) ,CWR2(4> ,WFR (4.30,3) » 

X wN(4,30.3) ,SWR (4,30.3) ,RWS(4,30»3) 

COMMON/HP20/  II »EFH(4,30,3) , EMP (4 , 30 . 3 ) ,EMK (4 , 30 » 3) 

COMPLEX  II.EFH.EMP 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CAROS) 

COMMON/ENOCOM/ENDCOM 

C 

1 FORMAT (6X.*0YNAMIC  COEFFICIENTS  OF  THE  EQUATIONS  OF  MOTION*//// 

X 6X » * A33  IS  SCALED  BY  M.*// 

X 6X » * A35  AND  A53  ARE  SCALED  BY  *»4HM*L.// 

X 6X.*A55  IS  SCALED  BY  M*,5H*L*L.// 

X 6X,*B33  IS  SCALED  BY  M* , 1 H* , *SORT ( G/L ) . *// 

X 6X  » *035  AND  B53  ARE  SCALED  BY  M* , 1 1h*SQRT (G*L ) .// 

X 6X,*B55  IS  SCALED  BY  M*. 13H*L*SQRT (G*L) .// 

X £>X » *M  IS  THE  DISPLACED  MASS.*// 

X 6X,*G  IS  THE  ACCELERATION  DUE  TO  GRAVITY.*// 

X 6X,*L  IS  THE  DISTANCE  BETWEEN  PERPENDICULARS.*//// 

X 6X,*FN  IS  THE  FROUDE  NUMBER  = (FORWARD  SPEED ) /SORT* . 6H ( G*L ). // 
X 6X « *BET  A IS  THE  WAVE  HEADING  ANGLE  IN  DEGREES.*/ 

X 6X , *BE  T A = 180.  FOR  HEAD  SEAS.*// 

X 6X,*0MEGA  IS  THE  ENCOUNTER  FREQUENCY  NON-D I MENS  ION AL I ZED  BY*. 

X *SQRT (G/L) .*// 

X 6X,*THE  HULL  SEPARATION/BEAM  RATIO  IS  THE  DISTANCE*/ 

X 6X, ‘BETWEEN  THE  HULLS  DIVIDED  BY  THE  BEAM  OF  ONE  HULL.*) 

2 FURMAT ( 1H0.5X,*BARE  HULL  POTENTIAL  FLOW  ADDED  MASS  AND  DAMPING*. 
X * C0EFFICIENTS*/6X.*FN  = *»F5.3/ 

X 1 OX  » *OMEGA* ,7X»*A33*,7X,*A35*,7X,*A53*,7X.*A55*.7X»*B33*,7X, 

X *B35*,7X.*B53*»7X.*B55*> 
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3 FORMAT (F15.A.6F10.6) 

4 FORMAT ( 1 HO .5X . •ADDED  MASS  COEFFICIENTS  AND  DAMMING  COEFFICIENTS* 

X * EXCLUDING  CROSS-FLOW  0RAG*/6X»*FN  = *,F5.3/ 

X 10X.*OMEGA*,7X.*A33*.7X.*A35*.7X,*A53*,7X.*A55*.7X.*H33*.7X, 

X *B35*,7X.*B53*.7X.*B55*) 

5 FORMAT ( lHl . 14A6* 18X* A6* 14/ ) 

6 FORMAT (F15.4.8F10.6) 

11  FORMAT ( 1 HO *5X « 8HST AT  ION  F7.4) 

150  FORMAT ( 1H0. BOX, *HULL  SEPARATION/BEAM  = *,F7.4) 

205  FORMAT ( 1H0.5X.43HPROJECTED  AREA  OF  THE  SUBMERGED  HULL/L**2  =,E15.h 
l/aX,13HMOMENT/L**3  =.E15.6,5X,24HM0MENT  UF  INERTIA/L**4  =,E15.6) 

IF  ( 1 .EQ.0>  CALL  PGM  1 B 
falp=pst-fal 

FdLP=PST-FBL 
OR  I = 0.7853982 
R VOL  = VOL  * EL**3 
N5U=N0S 
11= (0.0. 1.0) 

DO  12  MM=1,NBTA 

WAND= WANG (MM) *.01745329252 

CUSBET (MM)=COS(WAND) 

12  SlNBET (MM) =SIN (WAND) 

CALL  ODFCN 

OU  25  JJ= 1 . NFN 
LBT=MIL ( JJ) 

IF  (MIL ( JJ) .LE.O)  GO  TO  25 
DO  20  N=1,LMT 
DO  20  MM= 1 .NBT A 

20  R*S (JJ.N.MM) =1 ,/SWR (JJ.N.MM) 

25  CONTINUE 

DO  40  N=  1 » NFR 
A 33 (N) =0.0 
AHP (N) =0.0 
AR (N) =0.0 
40  CONTINUE 

DO  50  J J= 1 .NFN 
DO  50  N=1.NFR 
DBP(JJ.N)  = 0.0 
DR ( JJ.N) =0.0 
B33(JJ»N,1)=0. 

DO  50  MM= 1 • NBT  A 
EFH ( JJ.N.MM) = (0. .0. ) 

50  EMP (JJ.N.MM) = (0. .0. ) 

PROA=0. 

PKOM=0. 

PWOI=0. 

DO  60  K= 1 ,NOS 
X1P=PST-SS(K) 

X 1P2=X IP*X I P 
OST=DS  < K ) 

NUT=NM(K) 

IF (NUT  .EQ.  0)  GU  TO  60 
DO  333  I JK= 1 .NUT 
333  X5(I JK)sX(K.IjK) 
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XLG=XMAX(NUT.XS> 
XSM=XMIN(NUT.XS> 
AVBH(K)aXLG-XSM 
HAM=dEAM (K ) 

DKT  = DRFT  (K) 

A I R= AREA ( K ) 

DA=DST*AVBM(K) 

proa=proa*da 

PROM=PROM-XIP»DA 

PWUI=PR0I^XIP2*DA 

NUN=NUT-1 

NUE=2*N0N 

DO  62  J= 1 »NUT 

Xb ( J) =X ( K » J ) ♦ SD  ( ISU) 

62  Yb(J)=Y(K»J> 

YbML  = XMIN(NUT.YS) 

DU  65  I J I = 1,  NUT 
NiMN  = I J I 

IF(YSML.EO.YSdJl))  GO  TO  66 

65  CONTINUE 

66  MAXD  = NNN 

It-  (MONO  .GT.  1 ) MAXU=1 
DO  63  J=  1 , NUN 
XX  < J)=0.5* (XS< J> ♦XSt J*1 > ) 
YY(J)*0.5*(YS(J) ♦YS(J*1) ) 

X 1NT=XS ( J+ l ) -XS< J) 

Y1NT  = YS( J*1 ) — Y S ( J ) 

Ot-L  ( J)  =SQRT  ( XINT*»2»YINT»*2) 
SNE ( J) =YINT/DEL ( J) 

63  CbE < J) =X INT/DEL ( J) 

CALL  frank 

If  ( ID.LT.2)  GO  TO  60 
S! ATION=20.0*SS(K) 

WkITE (6,11) STATION 
GO  TO  77 
60  CONTINUE 

W* I TE  ( 6 , 205 ) PROA, PROM, PROI 

DO  30  N= 1 ,NFR 

GXI=0MEN(N) 

DtB=GXI*VOL 
DtA=GXI*DEB 
AJ3(N)=A33(N)/UEA 
AMP (N) =AHP (N) /UEA 
AH (N) =AP (N) /DEA 
DU  30  J J= 1 , NFN 
B33(JJ,N,1)=R33(JJ,N,1)/DEB 
DMP( JJ,N)=OHP ( JJ,N) /DEB 
30  DP ( JJ,N) =DP ( JJ,N> /DEB 
DU  31  N=1,NFR 
GX I =OMEN ( N ) 

GX2=GXI*GXI 
A33N=A33 (N) 

A35N=AHP (N) 

DU  31  J J= 1 «NFN 
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FNJsFN< JJ) 

Rb5=FNJ*FNJ/GX2 

BJ3S*H33(JJ.N,1) 

Stt»FNJ*833S/GX2 
A 35 (JJ.N) »A35N-SB 
A:>3<  JJ.N)=A35N*SB 
A55(JJ»N)=AP<N)  ♦R55*A33N 
SA=DHP( JJ,N> 

Stt=FNJ*A33N 
B35(JJ.N,1)=SA*SB 
Bd3 ( JJ.N, 1 ) =SA-SB 
8g5 ( JJ.N, 1 ) =0P  < JJ.N) ♦R55*B33S 
31  CONTINUE 

If  ( IG.LT.2)  GO  TO  34 
NPAG=NPAG*1 

WRITE (6,5)  (PATT(I) .1  = 1,6) , (TITLE(I) ,1  = 1,8) , PA T T < 7 ) , NP AG 
WR I TE ( 6 » 1 50 ) RATIO 
WRI TE (6,1 ) 

NPAG=NPAG+  1 

WRITE (6.5)  (PATT ( I ) , 1=1 ,6) , ( TITLt (I),I=1,8),PATT<7) , NPAG 
WRl TE (6, 150)  RATIO 
K R=  0 

00  33  J J= 1 ,NFN 
LMT=MIL ( JJ) 

It-  (LMT.LE.O)  GO  TO  33 

NF  4 = LMT  *4 

WRITE (6,2)  FN(JJ) 

WRI TE (6,6)  (OMEN (N ) , A 33 ( N) , A 35 ( J J »N ) . A53 ( J J , N ) , A55 ( JJ,N) , 

X B33  ( JJ.N,  1 ) ,B35  ( JJ,N,  1 ) ,B53  ( J J,N,  1 ) .855 (JJ.N, 1 ) ,N=1  ,LMT) 
IF ( JJ.EQ.NFN)  GO  TO  33 
KR=KR,NF4 

It-  155-KR.GE.NF4)  GO  TO  33 
KR  = 0 

NPAG=NPAG*1 

WRITE (6.5)  (PATT ( I) , 1=1 ,6) , (TITLE (I) , 1=1 ,ft> ,PATT (7) , NPAG 
WRITE (6,150)  RATIO 

33  CONTINUE 

34  CONTINUE 
AOAB=AMAB=AIAB=0. 

VOAB=VMAB=VI AB=0. 

IF IN=0 

IF (CLFA.EO.O.  .AND.  CLFB.EO.O.)  GO  TO  67 
IF  I N=  1 

C5A=CHRDA*SPNA 
CSB=CHRD8*SPNB 
FALP2=FALP*FALP 
FBLP2=FBLP*FBLP 
AOFA=0PI*CSA* (CHRDA*THKA) /RVOL 
A OF B = QP I *C SB* ( CHRDB*  T HK R ) /RVOL 
AOAB=AOFA-»  A0F8 
AMAB=-FALP»ADFA-FBLP*ADFB 
A I AB=FALP2*ADFA*FBLP2*A0FB 
67  C0N=.5*EL/RV0L 
CONA=C0N*CSA*CLFA 
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CUNB=CON*CSB*CLFB 
CUNV=.5*XZVL/V0L 
DO  70  N= 1 *NFR 
GX2*OMEN(N) 

G*2=GX2*GX2 
AJ3(N)*A33(N) ♦AOAB 
DU  70  JJ*1*NFN 
FNJ=FN< JJ) 

IF ( IFIN.EQ.O)  GO  TO  68 
VDUF  =CONA*FNJ 
VuPB=CONB«*FNJ 
VUAB=VDPA*VDPB 
V^AB=-FALP*VDPA-FBLP*VDPB 
V1AB=FALP2*VDPA*FBLP2*VDPB 
68  VlSF=CONV*FNJ 
RJ5=FNJ/GX2 
R55=FNJ*R3S 

AJ5(JJ*N)=A35(JJ*N) ♦AMAB 

At>3  < JJ,N)  =AS3  ( JJ*N)  ♦AMAB 

Ad5( JJ»N)=Ab5 ( JJ.N) ♦RS5»ADAB*AIAB 

SBJ3=B33 ( JJ*N« 1 ) ♦VlSF*PROA*VDAB 

SA=FNJ*AUAB 

sb=visf*prom*vmab 

S«35=B35 ( JJ*N»1 ) ♦SA^SB 
Sd53=B53  < JJ*N. 1 ) -SA*SB 
S055=B55 ( JJ*N« 1 ) ♦ V I SF *PRO I ♦ V I AB 
DU  70  MM=1,NBTA 
BJ3 ( JJ«N,MM) =$B33 
BJ5(JJ»N*MM>=S835 
Bs3(JJ*N*MFn  = 5853 
70  Rt>5 ( J J * N ’ MM ) =SB55 

CJ5S=CONV*PROA*CONA*CONB 
Co5S=C0Nv*PRUM-FALP*C0NA-FBLP*C0NB 
IF ( IG.LT.2)  GO  TO  77 
NHAG=NPAG+ 1 

W*ITE<6*5)  (PATT(I) *1=1*6) * (TITLt (I) *1=1*8) »PA  TT ( 7 ) *NPAG 

WKITE(6*150)RATIO 

KP  = 0 

DU  95  J J= I * NFN 
LMT=MIL ( JJ) 

NF4=LMT*4 

If  (LMT.LE.O)  GO  TO  95 
WK I TE (6*4)  FN(JJ) 

WP I TE  (6*6)  (OMEN (N) «A33(N) *A35(JJ*N) *A53(JJ*N) *A55(JJ»N)  * 

X B33 ( JJ  *N » 1 ) *035 ( JJ  »N » 1 ) *B53( JJ*N,1 ) *B55( JJ*N*1 ) »N=1 *LMT ) 
IF < JJ.EQ.NFN)  GO  TO  95 
K*=KR*NF4 

IF ( (5S-KR) .GE.NFA)  GO  TO  95 
KP  = 0 

NPAG=NPAG* 1 

WPITE (6*5)  (PATT(I) *1  = 1*6) * (TI TLt ( I ) *1  = 1*8) *PATT (7) *NPAG 
WPITE(6.150)RATIO 
95  CUNTINUE 
77  CUNTINUE 

CALL  AERTRNK 
EM) 
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noon 


PROGRAM  QPGM2H 
C 

CUMM0N/HP1/  NPAG.T1TLE (8) »PATT ( 7 ) .RATIO 

COMMON/HP?/  IU»lG*IP*INO,ISO.ISTART»JA,JB,JC.K,LP.MAXD,MONO.MS. 

X NIX.Nl_OOP.NSD.NSO.NSTR.NUX 

CUMM0N/HP3/  NOS.NMOO)  .BEAM  ( 30  ) *DRFT(30)  .AREA(30)  .MPS(30)  . 

X AV0M ( 30 ) .ST (30) .IN (JO) .SOAR (30) .X (30.20) » Y (30.20) 

COMMON /HP A/  NUT. NON. NOE. XS( 20) . YS (20) ,XX < 19) , YY < 19) .DEL (19) . 

X SNE ( 19) ,CSE (19) 

COMM0N/HP5/  V0L.X1P*DST.PST .BAM .DRT . A I R . AMP  1 . AMP2 , DS ( 30 ) ,SS ( JO) 
CUMM0N/HP6/  NOW »NOL .NSP*NST  * WINK (5) *SHLT(6> .SPEEU(6) .STAT(20) 
COMMON/HP7/  NFN,NFNS,FN(6) .FNS (6) 

COMMON/HP8/  NBTA.NBT  AS.NBTAT .NHTAQ.WANG (8) .COSBET (J) .S1NBET(3) 
C0MM0N/HP9/  NFR .NFRS  « OMEN ( 30 ) .OMENS(JO) .0MIN.OMAX ,DUME .OWAX 
COMMON /HP  10/  XZFO,XZVL,XZHB»XZPR*KV»KW 
COMMON/HP  11/  CHRUA,TMKA,SPNA.FAL*XZF A.CLFA.DEPA.FAY 
COMMON/HP  12/  CHROB.THKB.SPNR.F0L»XZFt),CLFH,DEPB.FBY 
COMMON/HP  1 3/  GRAV.DEPCAT  *SD (6) .RBMST (10) 

COMMON/HP 14/  EL*GCB,GYR»RGY, VCG.BKCL.RF3J.RP35.RMB5 
COMMON/HP  15/  A 3 3 (30)  ,A35<4,30)  ,Ab3(4.J0>  *AS5<4.30>  .CJ5S.C5SS, 

X 833(4.30.3) .R35 (4,30,3) .853(4,30.3) ,H55 (4,30,3) 

COMMON/HP  16/  AHP(30)  ,DHP(4,30) , AP ( 30 ) , JP ( 4 , 30 ) 

COMMON/HP  17/  OMEGA  » UN, PAH ( 19 ) ,PVH< 19) 

COMMON/HP1 8/  BLOG (19, 19) ,YLOG( 19*19) 

COMMON/HP  1 9/  K ASE ( 4 ) ,MIL<4) ,CWR1 (4) ,CWR2<4) ,WFH(4,30.J) . 

X WN (4  « 30  « 3 ) .SWR (4,30*3) *HWS (4,30.3) 

COMMON/HP20/  1 1.  £FH( 4, 30 .3) ,EMP (4,30*3) .EMK (4.30.3) 

COMPLEX  II.EFH.EMP 

END  OF  COMMON  DECK 

(make  all  changes  above  these  cards) 

COMMON/ENDCOM/ENOCOM 

c 

COMPLEX  egh.enp 

COMMON/PR23/  EGH (4,30,3) ,ENP (4,30,3) 

C 

COMPLEX  avc,ca,cb,ccon,cex»cexal,cexbl,cpart,cparta,cpartb.cpet, 

X CZIH,CZIP*EXMN,EXPL,F3V,F5V, IKC, IKS, 1KSS. I V I SF , WEXMN , WE XPL 
COMPLEX  SEE  H (4  « 30 , 3 ) » SEMP (4 , 30 , 3 ) 

C 

DIMENSION  DTMA (30) .EPK (4,30.3) 

2 FORMAT ( lH0*bX.*DAMPING  COEFFICIENTS  INCLUDING  CROSS-FLOW  DRAG*/ 

X 6X,*FN  = *,F5.3//13X,*BETA  = **F6.1/ 

X 6X,»OMEGA*,7X,*B33*.7X,»B35*,7X,*BS3*,7X,*B5S*) 

3 FORMAT ( 1H0.SX,*DAMPING  COEFFICIENTS  INCLUDING  CROSS-FLOW  DRAG*/ 

X bX,*FN  = *.F5.3//13X,*BETA  = * * F6 . 1 *27X , *BET A = *,F6.1/ 

X 6X,*OMEGA*,2(7X,*B33*»7X,*B35**7X,*Bb3*,7X.*B55*) ) 

4 FORMAT ( 1H0«SX, ‘DAMPING  COEFFICIENTS  INCLUDING  CROSS-FLOW  DRAG*/ 

X 6X,*FN  = *,F5.3//13X,*BETA  = **F6. 1 .2  (27X,*BLTA  = *,Ft>.l)/ 

X 6X,*0MEGA*,3(7X.*B33*,7X.*B3S**7X,*BB3*.7X.*B55*> ) 

5 FORMAT ( 1H1 , 14A6* 18X.A6, 14/) 

6 FORMAT ( lhO.SX. ‘EXCITING  FORCE,  MOMENT  AND  PHASES*//// 

X 6X.*THE  FORCE  AMPLITUDE  IS  SCALED  BY  THE  HEAVE  RESTORING  FORCE*/ 
X 6X,*C33  = RH0*,5H*G*A*,*(WATERPLANE  AREA).*// 
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6X » *THE  MOMENT  AMPLITUDE  IS  SCALED  BY  THE  PITCH  RESTORING  *. 
•MOMENT  */6X  * *C55  * RHO* »5H*G*A* .*< MOMENT  OF  INERTIA  OF*, 

• WATERPLANE)/L.*// 

6X.1H*. “MOMENT  DENOTES  THE  MOMENT  AMPLITUDE  SCALED  BY  L*.lH*, 
• (WAVE  NUMBER) *» 1H*»*C55.*// 

6X«*G  IS  THE  ACCELERATION  DUE  TO  GRAVITY,*// 


X 
X 
X 
X 
X 
X 

X 6X,*A  IS  the  wave  amplitude.*// 

X 6X,*L  IS  The  DISTANCE  BETWEEN  PERPENDICULARS.*// 

X 6X,*RH0  IS  THE  WATER  DENSITY.*///) 

7 FORMAT (6X,*FN  IS  THE  FROUDE  NUMBER  * (FORWARD  SPEED ) /SORT* , 

X 6H  ( G*L  ) . // 

X bX • *BET A IS  THE  WAVE  HEADING  ANGLE  IN  DEGREES.*/ 

X 6X , *BET A * 180.  FOR  HEAD  SEAS.*// 

X 6X,*0MEGA  IS  THE  ENCOUNTER  FREoUENCY  NON-D IMENSI ONAL I ZED  BY*. 

X * SORT (G/L) .*// 

X 6X,*THE  PHASE  ANGLE  IS  MEASURED  IN  DEGREES  WITH  RESPECT  TO  THE*. 
X * WAVE  AT  THE  CO.  *// 

X 6X,*L/LAM  is  L/ ( WAVE  LENGTH).*// 

X 6X,*F0R  FOLLOWING  SEAS  THE  FREOUENCY  DOMAIN  IS  DIVIDED  INTO  *, 

X *IHREE*/6X,*REGI ONS  SEPARATED  BY  TWO  CRITICAL  L/LAM  DENOTED  *, 

X *CWR 1 AND  CWR2 . * ) 

8 FORMAT < 1H0.5X, “EXCITING  FORCE,  MOMENT  AND  PHASES*/ 

X 6X.*FN  = *,FS.3/6X,*BETA  = *,Fb.l/ 

X 6X , *REG ION  » , 1 1 » *CWR 1 = *.F9.4»*  CWR2  = *.F 9. A// 

X bX«*0MEGA*,SX.*L/LAM*,5X»*F0RCE*,5X,*PHASE*.4X.*M0MENT*,5X. 


X *PhASE*»3X,7H*MOMENT,5X«*LAM/L*) 

9  FORMAT < lHO.bX. “EXCITING  FORCE » MOMENT  AND  PHASES*/ 

X 6X.*FN  = *.F5.3/6X.«BETA  = *.Fb.l// 

X 6X , “OMEGA* ,5X**L/LAM*»5X , *FORCE* *5X**PHASE**4X, “MOMENT  * , 5X  ♦ 

X *PHASE*.3X,7H*M0MENT,5X**LAM/L*> 

10  FORMAT (FI  1.8, F10.4.F 10.5, FI 0.3, F10.5.F 10.3.F10.5.F10.4) 

12  FORMAT ( IX, F 10. 4.4F 10.6) 

13  FORMAT < 1X.F10.4.8F10.6) 

14  FORMAT < 1X.F10.4.12F1U.6) 

150  FORMAT ( lh0»80X,*HULL  SEPAPAT I ON/Bt AM  = *,F7.4) 

202  FORMAT <6X,*FN  = *,F5.3/6X»*BETA  = * ,F6 . 1 / 1 0 X , “OMEGA* ,5X , *HE A VE* , 
X 5X.*PHASE*.5X.*PITCH*.5X.*PHASE*,5X,*LAM/L*) 

203  FORMAT ( <5X.F10.3.2(F10,5.F10.3) «F 10.4) > 

204  FORMAT (6X,*EQUATI0NS  OF  MOTION  SOLVED  USING  DAMPING** 

X * COEFFICIENTS  EXCLUDING  CROSS-FLOW  DRAG.*) 

205  FORMAT ( 6X . “EOUAT I ONS  OF  MOTION  SOLVED  USING  EXCITING  FORCE*. 

X * INCLUDING  FIN  AND  BODY  LIFT  CONTRIBUTIONS.*) 

2 05  FORMAT (6X, “EQUATIONS  OF  MOTION  SOLVED  WITH  VISCOUS*. 

X * CROSS-FLOW  DAMPING  EFFECTS.*) 

500  FORMAT (5X.*MOT ION  AMP  FAILED  TO  CONVERGE  FOR  RETA  =*.F8.2. 

X *FN  =*,F8.4.*  LAST  2 VALUES  =*.E12.5»*  AND*.E12.5« 

X “CALCULATION  CONTINUES.*) 

501  FORMAT (5X, “ITERATION  NOT  USED.  MAX  AMP  =*,E12.5) 

502  FORMAT ( IX. 12) 

IF (1.EO.0)  CALL  PGM1B 
SOl=SD( ISO) 

D VOL= 1 . / VOL 

IF ( IG.NE.3)  GO  TO  29 

CALL  SOLVE (2.DV0L.DV0L.1 .NFN.l ,NBTA. 1 .NFR) 
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KH*0 

npag=npag*i 

WHITE (6. 5 > (PATT(I) . 1*1 .6) ♦ ( T I TLt ( I ) . I* 1 .8 > .PATT ( 7) ,NPAG 
WHI TE (6. 150 ) RATIO 
WHITE (6.204) 

DU  28  JJsl.NFN 
L*T=MIL( JJ) 

17 (LMT.LE.O)  GO  TO  28 

LMP=IMT*5 

DO  27  MM=1,NBTA 

17 (55-KR.GE.LMP)  GO  TO  26 

KW=0 

NHAG=NPAG*1 

WHITE (6.5)  (PATT(I) .1=1.6) » (TITLE (I) .1=1,8) .PATT<7) ,NPAO 
WHITE (6, 150)  RATIO 
WHITE (6,204) 

26  WHITE  <6  » 20<? ) Fn(JJ)  .WANG (MM) 

WHITE (6,203)  (OMEN (N) .EGH ( J J ,N ,MM ) »ENP ( JJ.N.MM) ,RwS ( JJ.N.MM) , 
X N=1,LMT) 
kh=kr*lmp 

27  CONTINUE 

28  CONTINUE 

29  CONTINUE 
ElEL=EL*EL 
EL3=ELEL*EL 
RVOL=EL3«VOL 
OtPAL=OEPA/EL 
DtPHL=OEPB/EL 
DtPCAL=UEPCAT/EL 
F4LP=PST-FAL 
F«LP=PST-FBL 
FALP2=FALP#FALP 
FHLP2=FBLP«FHLP 
csca=.5«chrda*spna*clfa 
C6CB= .5*CHWU8*SPNB*CLFB 

17  (CLFA.LE.O.  .AND.  CLFB.LE.O.  .AND.  XZVL.EQ.O.)  oO  TO  399 

DO  80  JJ=1,NFN 

LMT=MIL(JJ) 

17 (LMT.LE.O)  GO  TO  80 
FNJ=FN( JJ) 

IVISF=.5*I I*FNJ»XZVL 
F i'I  J=FN  J/ELEL 
DO  81  MM= 1 ,NBT A 
COSB=COSBET (MM) 

S1NB=5INBET (MM) 

SSINB=SUI*SINB 
DO  81  N=1,LMT 
CA7=WN (JJ.N.MM) 

F 3V= ( 0 • « 0 . ) 

FbV* (0 . ,0. ) 

INC=II*CAY*CUSB 
END=EXP (-CAY*DEPCAL) 

00  75  Kal.NUS 

X1P=PST-SS(K) 
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If  (OEPCAT.EN.O.)  EKD*EXP(-CAY*ARtA(K)*DPFT(K>  > 

CPE T=EKD*A VBM <K ) »CEXP< IKC»X IP) *DS(K> 

F JV=F3V-CPET 
75  Ft>V=F5V*XlP«CPET 

CCON= IV ISF*WFR (JJ.N.MM) *COS(CAY*SSINB) 

cayu=cay*sinb 

FtXF=FNj*WFR (JJ.N.MM) 

CA=-I  I*FEXF*CSCA*EXP  (-CAY«DEPAL)  #COS  (CAYB*FAY  ) *CEXP  ( I *VC*F  ALP) 
CB=-I I*FEXF*CSCB*EXP (-CAY*OEPBL) *COS (CAYB*FHY ) *CEXP ( IKC*FRLP> 
Ef H< JJ.N.MM) =EFH< JJ.N.MM) *CA ♦CB*CCON*F 3V 
81  E*P (JJ.N.MM) =EMP (JJ.N.MM) -FALP*CA-FBLP*CB.CC0N*F5V 
80  CUNTINUE 

IF ( IG.NE.3)  GO  TO  39 

CALL  SOLVE  ( 2 »DVOL  »DVOL  .l.NFN.l.NBTA.l.NFR) 

KR  = 0 

NPA6=NPAG*1 

WHITE (6.5)  (PATT(l) .1=1.6) ♦ (TITLt(I) *1  = 1*8) »PATT (7) « NP  AG 
WHlTE<6.150)  RATIO 
WHITE (6.205) 

DO  38  JJ=l .NFN 
LMT=MIL ( JJ) 
n iLNT.LE.O)  GO  TO  38 
LMP=LMT*5 

DO  37  MM=1,NHTA 
;F (55-KR.GE.LMP)  GO  TO  31 

CH=G 

NOAG=NPA  1 

WHITE (6.5)  (PATT(I) ,1=1.6) . (TITLt(I) .1=1.8) .PATTI7) .NPAG 
WH I TE  f 6 , 150 ' RATIO 
WRITE (6.205) 

31  WHITE (6.202)  FN( JJ) .WANG (MM) 

WHITE (6.203)  (OMEN (N) . EGH ( J J » N * MM ) ,ENP (JJ.N.MM) «RWS ( JJtN.MM) . 
X N= 1 .LMT ) 

KH=KR.LMP 
37  CUNTINUE 
30  CUNTINUE 
39  CUNTINUE 

399  IF(XZVL*XZFO*XZFA*XZFR.GT.0.)  GO  TO  Jh 
DU  36  JJ=1»NFN 
LMT=MIL ( JJ) 

If  (LMT.LE.0)  GO  TO  36 
DU  35  N=1,LMT 
DU  35  MM= 1 »NBT A 

Ef H( JJ»N»MM)=EFH( JJ.N.MM) /AMP1 

35  EMP< JJtN.MM) =EMP (JJ.N.MM) / AMP2 

36  CUNTINUE 
GU  TO  76 

3A  CUN= (-CSCA*FALP-CSCB*FBLP) *EL/RVUL 
OU  5i  JJ=l.NFN 
DU  51  N=1.NFP 
EPK ( JJ.N. I ) =B33  ( JJ.N. 1 ) 

EPK(JJ,N.2)=335(JJ.N.1> 

EPK(JJ.N»3)=B53(JJ.N.l) 

51  DP ( JJ.N) =B55 ( J J.N, l ) 


44 


non 


DU  714  JJ=1,NFN 
LMT=MIL( JJ) 

IF (LMT.LE.O)  GO  TO  714 
DO  713  MM=1 tNBTA 
I LOOP*- 1 
DO  53  N=1 »LMT 

StFH( JJ,N.MM)»EFH(JJ,N.MM)/AMP1 

53  StMP ( *EMP ( JJ.N.MM) /AMP 2 
555  1 LOOP* I LOOP *1 

IF (ILOOP.LE.O)  GO  TO  52 
DO  56  N=1,LMT 

EFH( JJ,N»MM»=EFH(JJ,N«MM)*AMPl 
56  EMP ( JJ,N«MM) =EMP  < JJ,N.MM)*AMP2 
52  CALL  SOLVE (2*DV0L,UV0L»JJ» JJtMMtMM, 1 ,LMT) 

IF (IG.NE.3)  GO  TO  25 
Kk  = U 

NPA(j=NPAG*  1 

WRITE (6,5)  <PATT ( I ) , 1=1 .6) t (TITLt (I)»I=1»B).PATT(7) ,NPAG 
WRITE<6.150)  RATIO 
WR 1 TE  ( 6 * 206 ) 

LMP=LMT*4 

IF (55-KR.GE.LMP)  GO  TO  24 
KR  = 0 

NPAG=NPAG»1 

WRITE (6 t5)  (PATT ( I) ♦ 1=1 .6) ♦ ( TITLt ( I ) « 1= 1 « A ) «PATT (7) ,NPAb 
W* I TE  < 6 * 150 ) RATIO 
WR I TE  ( 6 * 206 ) 

24  WRITE (6*202)  FN ( JJ) ,WANG (MM) 

WRITE! 6.203)  (OMEN(N) »EGH( JJ.N.MM) * ENP ( J J « N . MM ) , 

X RWS< JJ.N.MM) ,N=1.LMT> 

KR=KP+LMP 

25  IF (NLOOP.LE.l)  GO  TO  55 
DO  54  N=1,LMT 

54  D!MA(N)=HEAL(EGH(JJ,N»MM) ) 

EOHMXL=EGHMX 

EOHMX  = XMAX (LMT  tDTMA ) 

IF  (EGHMX.LT. .8)  GO  TO  556 
Ir (ILOOP.LE.O)  GO  TO  55 

IC  (ABSfEGHMX-EGHMXD/EGHMXL.LE.l)  GO  TO  557 

55  CSX A=CHRDA*SPNA*XZF  A 

csxh=chrub*spnb*xzfb 
.2 1 22 1 =2/ ( 3*P I ) 

. 005=A/EL=EMP IRICAL  FACTOR 
XZFOC=(.005*EL)*.21221*XZFO/EL 
XZF OC=.00106l*XZF0 
V 1 SM=XZFOC/ VOL 
DO  712  N= 1 * LMT 
GXl=OMEN(N) 

V i SP  = V I SM*GX I 

EF  M ( JJ»N*MM) =EFH (JJ.N.MM) /AMP1 
EMP (JJ.N.MM) =EMP (JJ.N.MM) /AMP2 
ZRH=PEAL (EGH( JJ.N.MM) ) 

ZRP=REAL (ENP ( JJ.N.MM) ) 

Z 1FH=  A 1MAG(EGH(  JJ.N.MM)  >/57. 295779 
Z iP= A I MAG (ENP ( JJ.N.MM) >/57. 295779 
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CZlH=ZRH«*CEXP(-II*ZlH) 

CZIP*2.*ZRP*CEXP(-II*ZIP) 

CAY=WN( JJ»N.MM) 

OMEW=WFR ( JJ»N»MM) 

PRUA  = 0. 

PROM=0. 

PKUI=0. 

FJV=(0.t0.) 

F PV  = ( 0 • * 0 • ) 

W«JW=0MEW/GXI 
IKS=II*CAY 
IKC=IKS*COSBET (HM) 

IKS=IKS*SINBET  (MM) 

IKSS=IKS*SDI  ' 

EAPL=CEXP ( IKSS) 

EXMN=CEXP (-IKSS) 

WtXPL=WDW*EXPL 
WC.XMN=WDW*EXMN 
EkD=EXP  <-CAY*DEPCAL) 

OU  S75  K=1 »NU5 
AVB=AVBM (K) 

DST=DS(K) 

X1P=PST-SS(K) 

U (DEPCAT.EU.O. ) EKD=EXP ( -CA Y*ARt A ( K ) *URF T ( K ) ) 

CtX=EKD»CEXP  ( IKOXIP) 

CHART=CZIH-CZIP*XIP 
VZtROP=CAHS (CPART-WEXPL*CEX) 

VZER0M=CAHS(CPART-WEXMN*CEX) 

AVV=AVB* (VZEROP^VZEROM) *DST 

PPUA=PROA^AV V 

AVV=XIP*AVV 

PkUM=PROM*AVV 

PROI=PROI ♦XIP«AVV 

A VC  = A VE)#CEX  * ( VZEROP*EXPL ♦ VZE ROM*EXMN ) *UST 
F JV=F  3V* AVC 
575  F5V=F5V>XIP*AVC 

EXUA=EXP(-CAY*L)EPAL) 

EM)B  = EXP  (-CAY*DEPBL) 

CtXAL  = rtDV(*EKDA*CExP  ( IKC*FALP) 

CtXBL=WDw*EKOB*CExP( IKC*FBLP) 

CPARTA=CZIH-FALP*CZIP 

CPARTB=CZIH-FBLP*CZIP 

IKSS=IKS*FAY 

PARTA=CABS(CPARTA-CEXAL*CEXP ( IKSS) ) ♦CABS(CPAKTA-CEXAL*CEXP ( IKSS) ) 
IKSS=IKS*FBY 

PARTB=CABS (CPARTB-CEXRL*CEXP ( IKSS) ) ♦CABS (CPARTB-CEXRL*CtXP (-IKSS) ) 

CUN=.21221*GXl/RV0L 

VUPA=CON*CSXA*PARTA 

VL)PB=CUW»CSXB*PARTB 

C0N=.21221*GXI*GXI/EL3 

PART  A=CON*CSXA*PART  A 

PARTB=CON*CSXB*PAPTB 

CUN=XZF  OC*GX I •OMEw 

EFH( JJ,N,MM)=SEFH( JJ»N»MM) ♦ I I * ( -CON*F 3 V-P ART A*CEXAL-P AR T B*CE XBL ) / 

X AMP  1 
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EMP(JJ,N  ,MN)*SENP  (JJ,N»MM)tII*(C0N*F5V*FALP*PARTA*CEXAL*FBlP’ 
X PARTB*  CEXBD/AMP2 

B33  ( JJ.N  ,NH)  «EPK( JJ.N.l ) ♦ VISP*PR0A*VDPA»VDPf1 

con«-visp*proh-vopa*falp-vopb*fblp 

835 ( J J , N . MM  > *EP  K ( J J , N ,2  I ♦CON 
B53( JJ.N ,HH» *EPK(JJ,N,3> ♦CON 

M2  B55  < JJ.N  ,HN»  «0P  ( JJ . N ) tV I SP*PROI *F ALP2* VDP A* FBLP2 • V DPB 
IFJNLOOP.LE.il  GO  TO  M3 
IFULOOP.LE.NLOOP)  GC  TO  555 
WRITE (6.  500  I WANG (MM) ,FN(JJ) . EGHMX L . EGMM X 
GO  TO  55  6 

556  WRITE  16.  5011  EGHNX 
55  7 DO  715  N=1,LMT 

FFH(JJ,N,MM)«EFH(JJ,N,MM)/AMP1 
715  ENP  J JJ.N ,MM) =EMP(JJ ,N ,NMI /AMP2 
558  WRITE (6, 502)  ILOOP 

713  CONTINUE 

714  CONTINUE 

76  IFJIG.LE . 0)  GO  TO  77 
DO  65  JJ=1,NFN 
LMT  a M IL ( JJ) 

IFJLNT.LE.OI  GO  TO  85 
00  84  MM  = 1,NBTA 
DO  84  N=1,LMT 
ZRH=C ABS (EFHIJJ.N.MMII 
ZRP«CAB,5  (ENP  (JJ.N.  MM)  I 
IF  (ZRH.LE.O.)  GO  TO  87 

ZIH  = -57.  2957  79* ATAN2 ( AIMAG (EFH( JJ.N, MM) ) .REAL (EFH  < JJ, N,  MM)  > ) 
IF(ZIH.GT.90.I  Z IHs  Z I H-  360 . 

EGH ( JJ.N ,MM) =CMPLX (ZRH, ZIH) 

GO  TO  88 

67  £GH(JJ,N,MM)s(0.,0.  » 

88  IF ( ZRP .L  E • 0 • ) GO  TO  90 

ZIP  = -57.  295  7 79* AT AN2 ( A I MAG (EMP<  JJ ,N,MM) ) , RE  A L ( EM P ( J J . N , MM ) ) ) 
IFCZIP.L T.-270. ) ZIP=ZIP*360. 

ENP (JJ ,N ,MN) =CNPLX ( ZRP, ZIP) 

EPK ( JJ.N ,MM) =ZRP/WN ( JJ, N , MM ) 

GO  TO  64 

90  ENP ( JJ.N ,MM) * (0  . ,0  . ) 

EPK (JJ.N ,MM) =0. 

84  CONTINUE 

85  CONTINUE 

IFdG.LT  .2)  GO  TO  111 
NPAG*NPA  G ♦ 1 

WRITE (6, 5)  IP  ATT  (1 ) , 1 = 1 , 6 ) , I T IT LE  (I)  .1  = 1.8) ,PATT  (’)  ,NPAC 
WRITEI6, 150)  RATIO 
KR=  0 

NFP=  NFR* 5 
DO  40  JJ  * 1 < NFN 
LMT*MIL( JJ) 

IF(LMT.LE.O)  GO  TO  40 
GO  TO ( 41  ,42,43) , NBT  A 
41  WRITE (6. 2)  FN(JJ) ,WANG( 1 ) 

WRITEI6, 12)  (OMEN(N) ,B33(JJ«N,1 ) ,B35(JJ,N,1) ,B53 (JJ.N.l ) . 

X B55(JJ»N»1)»N=1»LMT) 


Go  TO  45 

42  WHITE (6*3)  FN(JJ) ,WANG(1> ,WANG(2) 

WHITE  (6, 13)  (OMEN (N)  , (B33 < JJ»N,MM) ,835 ( JJ,N,MM) ,853 ( JJ.N,MM)  , 
X 855 ( JJ,N,MM) ,MM=1 ,2) ,N=1 ,LMT) 

GO  TO  45 

43  WH I TE ( 6 , 4 ) FN(JJ) , (WANG(I) ,1  = 1,3) 

WHITE (6,14)  ( OMEN ( N ) , (B33 ( JJ»N,MM) , 835 ( J J , N , MM ) , 853 ( J J ,N , MM ) , 
X 855 ( JJ,N,MM) ,MM=1 ,3) ,N=1 ,LMT) 

45  IF ( JJ.EO.NFN)  GO  TO  40 

kh=kr*nfp 

IF (55-KH.GE.NFP)  GO  TO  40 
KH  = 0 

NPAG=NPAG*1 

WHITE ( b ,5 ) (PATT ( I ) , 1=1 *6) , ( TlTLt (I) ,I=1,B) ,PATT (7) , NPAG 
WH I TE ( 6 , 150 ) RAIIO 
40  CONTINUE 
111  NHAG=NPAG+1 

WH I TE ( 6 , 5 ) (PATT (I) ,1=1,6) , (TlTLt(I) ,I=l,ft),PATT<7) , NPAG 
WH I TE ( 6 , 150 ) RATIO 
WHITE ( 6 , b ) 

WHITE (6,7) 

NHAti=NPAG'  1 

WPITE (6,5)  (PATT (I)  ,1  = 1,6)  ♦ (TITLE (I),I  = 1,8),PATT(7)«NPAG 
WHITE (6, 150)  RATIO 
KH  = 0 

DO  100  JJ=1 ,NFN 
L'V'T  = MIL  (JJ) 

If  (LMT.LE.O)  GO  TO  100 
LMP=LMT*5 

IF  (KASE(  JJ)  .NE.O)  LMP  = LMP4.1 
Oo  110  MM=1,NBTA 
If  (55-KH.GE.LMP)  GO  TO  103 
Kh  = 0 

NH Ag=NP AG*  1 

WHITE (6,5)  (PATT (I) ,1=1,6) * ( T I TLt (I),I=1,8),PATT(7) , NPAG 
WHITE (6,150)  RATIO 
103  IF  (KASE ( JJ) .EQ.O)  GO  TO  101 

WHITE (b, 8)  FN(JJ) , WANG (MM) ,KASE(JJ) »CWR1 (JJ) ,CWR2(JJ) 

GO  TO  102 

101  WHITE (6,9)  FN ( JJ) ,WANG (MM) 

102  WHITE (6, 10)  (OMEN (N) , SWR ( J J , N , MM ) , EGH ( J J , N , MM ) , ENP ( J J , N , MM ) , 

X tPK ( JJ,N,MM)  , RWS ( J J , N » MM ) ,N=1 , LMT ) 

KH=KR*LMP 

110  continue 

100  CONTINUE 
77  CONTINUE 
Call  aehtrnk 
E Niu 
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SUBROUTINE  SOLVE ( I OPT .CONEFH.CONEMP, 1FNF • I FNL  » 1BTAF • I BT  AL  » 

X IFRF.IFRL) 

CUMMON/HP1/  NPAG. TITLE (8) ,PATT(7) .RATIO 

CUMMON/HP2/  IO.IG.IP.IND.ISO.ISIART  , JA . JB . JC »K , LP .MAXL)  .MONO . MS , 
X NIX .NLOOP ,NSD*NSO.NSTR ,NUX 

CUMMON/HP3/  NOS »NM ( 30 ) .BEAM (30) .ORFI (30) .AREA (30) .MPS(30) . 

X A VBM ( 30  > .ST (30) . IN (30) .SOAR (30) . X < 30 , 20 > » Y < 30 , 20 > 

CUMM0N/HP4/  NUT.NON.N  . XS ( 20 ) . YS (20 ) . XX ( 1 9 ) . Y Y ( 1 9 ) . UEL ( 1 9 ) ♦ 

X SNE ( 19) ,CSE ( 19) 

CUMMON/HP5/  VOL .X  IP .DST .PST .BAM.OPT .AIR, AMP  1 , AMP2.DS  < 30)  ,SS ( 30 ) 
CUMMON/HPfe/  NOW, NOL.NSP.NST .WINK (5) * SBL  T (6) .SPEED (6) .ST  AT (20) 
CUMMON/HP7/  NFN,NFNS.FN(6>  ,FNS(b) 

CUMMON/hPB/  NBTA,N8TAS,NBTAT,NBTAQ,WANG(R) .COSBET (3) .SlNRET (3) 
CUMM0N/HP9/  NFR.NFRS. OMEN ( 30 ) ,OM£NS(30) , OMIN, UMAX .DOME .OWAX 
CuMMON/HPIO/  XZFO.XZVL.XZHB.XZPB.KV.KW 
COMMON /HP  1 1/  CHROA.THKA.SPNA.FAL.XZT  A.CLF  A.DEPA.FAY 
Common/HP  12/  CHROB.THKB.SPNR.FBL.XZT  B.CLFB.OEPB.FBY 
CUMMON/HP13/  GRAV.DEPCAT ,SD (6) , RBMST (10) 

CUMM0N/HP14/  EL .GCB.GYR.RGY, VCG.BRCL .RF33.RP35.RMS5 
CUMMON/HP1S/  A 3 3 (30)  »A35(4»30) ,Ab3(4,30> ,A55<4,30) .C3SS.CS5S. 
x B33 (4,30,3) .B35 (4,30,3) ,Bb3 (4,30.3) ,B55(4,30,3) 

CUMMON/HP 16/  AHP ( 30 ) »DHP (4.30) , AP ( 30 ) .UP (4 , 30 ) 

CUMMON/HP17/  OMEGA, UN, PAH(19) ,PVH(19) 

CUMMON/HP1B/  RLOG (19,19) ,YL0G(19,19) 

CUMMON/HP 1 9/  KASE(4),MIL<4) .CWR1 (4) ,CWR2 (4),WFR(4,30,3>. 

X WN (4,30,3) , SWR (4,10,3) .RwS (4.30.3) 

COMMON /HP20/  I I ,EFH (4,30,3) ,EMP (4,30,3) , EMK (4,30,3) 

Complex  II.EFh.Emp 

END  UF  COMMON  DECK 

(make  all  changes  above  these  cards) 

CoMMON/ENDCUM/ENDCOM 

c 

COMPLEX  egh,enp 

COMMON/PR23/  EGH (4,30,3) ,ENP (4,30,3) 

DIMENSION  TOD (4,4) , BOD (4,1) .INDEX (4,3) 

C 

DU  10  J J= I FNF , I FNL 
LMT=MIL ( JJ) 

IT  (LMT.LT . IFRF ) GO  TO  10 
If  RLL=IFRL 

IT  (LMT.LT. IFRL)  I F RLL  = LMT 

FNJ2=FN ( JJ) **2 

C3S=RP35*FNJ2*C3SS 

Ct>b  = RM55*FNJ2*CbSS 

DU  20  N=IFRT, IFRLL 

DO  30  MM= IUTAF.IBTAL 

GXl=OMEN(N) 

GX2=GX I *GX I 

TUD( 1 .1 )=-GX2* (A33(N) *1 .0) *RF33 
TUD ( 1 .2) =-GX2*A35< JJ,N) *C3b 
TUD ( 1 , 3)=GXI*H33( JJ.N.MM) 
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T00<  1 ,4) =GXl*B35 ( JJ.N.MM) 

TOO (2. 1 ) =-GX2#A53 ( JJ.N) ♦ RPSS 
TOO (2»2) =-GX2* (A55 (JJ.N) ♦GYR) ♦CSb 
TOO <2, 3) =GXl*B53 ( JJ.N.MM) 

TUO(2,4)=GXl*B55 ( JJ.N.MM) 

TOO<3.1)=-TOD<1.3) 

TU0(3»2)=-TUD(1,4) 

TOO ( 3 » 3 ) =TOO ( 1 » 1 ) 

TOO (3.4) =TOD (1,2) 

TOO (4  * 1 ) =-TOD ( 2»  3) 

TU0(4.2)=-T0D<2.4) 

TOO (4*3) =TOO (2*1) 

TU0(4.4)=T00<2,2> 

BOO (1«1) =CONEFH*REAL (EFH( JJ.N.MM) ) 

BOO (2.1 ) =CONEMP#REAL (EHP ( JJ.N.MM) ) 

BOO (3.1) =C0NEFH*A1MAG(EFH( JJ.N.MM) ) 

BOO (4. 1 ) =CONEMP*AIMAG(EMP( JJ.N.MM) ) 

CALL  MAT  I NS (TOO. 4 .4. BOD. 1 .1 .OTRM. ID. 1NOEX) 

Go  TO ( 32 . 33 ) ,10 
33  EFH ( JJ.N.MM) = (0. *0. ) 

EMP(JJ,N,MM)=(0..0.) 

IMIOPT.EQ.3)  EMK  ( JJ,N,MM)=0. 

GO  TO  30 

32  ZKH=SQRT (BOO (1,1) **2*B0D ( 3. 1 ) **2) 

Z1H=-57.295779*ATAN3(B0D<3,1 > .BOO (1,1) ) 

Z*P=0 .S^SQWT (BOD (2, 1 ) **2*B0D (4 , 1 ) **2 ) 
ZiP=-57.295779*ATAN3 (BOO (4.1) ,800(2,1) ) 

If  (ZIH.GT.90.)  Z IH=Z IH-360 • 

If  (ZIP. LT .-270.)  ZIP  = ZIPO60. 

E OH (JJ.N.MM) =CMPLX (ZRH.ZIH) 

ENP (JJ.N.MM) =CMPLX (ZRP.  ZIP) 

If  (IOPT.EQ.3)  EMK (JJ.N.MM) =2. *ZRP/WN (JJ.N.MM) 
30  CONTINUE 
20  CONTINUE 
10  CONTINUE 
RtTURN 
ENO 
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PROGRAM  UPGM3 
C 

CUMMON/HP l / NPAG»TITLE (8) ,PATT(7> .RATIO 

COMMON/HP2/  ID. IG» IP* IND. ISO. ISTART  » JA. JB. JC.K.LP.MAXD.MONO.MS. 

X NIX.NLOOP.NSD.NSO.NSTR.NUX 

COMMON/HP3/  NOS  *NM ( 30 ) .BEAM (30) ,DRF  T (30) .AREA (30) ,MPS(30) . 

X A V0M ( 30 ) .ST (30) » IN (30) .SOAR (30) * X ( 30 . ?0 ) . Y ( 30 . 20 ) 

COMM0N/HP4/  NUT.NON,NOE»XS(20) . YS ( 20 ) . XX ( 19 ) . YY ( 19 ) .DEL ( 19) . 

X SNE (19) .CSE(19> 

COMMON /HP 5/  VOL.XIP.DST.PST . HAM.DRT .AIR, AMP  1 .AMP2.DS ( 30 ) ,SS(30) 
COMM0N/HP6/  NOW.NOL.NSP.NST .WINK (5) .SHLT (6) .SPEED (6) . ST AT (20) 
COMMON/HP7/  NFN.NFNS.EN (6) *FNS(6) 

CUMM0N/HP8/  NBTA,NBTAS.NBTAT,NHTAU,WANG(8) .COSBET (3) .SINRET (3) 
CUMM0N/HP9/  NFR.NFRS.OMEN (30) ,OMENS(30) .OMIN.OMAX.DUME .OWAx 

common/hp 10/  xzfo,xzvl.xzhb*xzph*kv.kw 

COMMON/hP 11/  CHRDA, 1HKA.SPNA.FAL.XZF  A.CLKA.DEPA.FAY 

common/hp 12/  chrdb.thkb.spnh.frl.xzfb.clfb.depb.fby 

COMMON/HP13/  GRAV.DEPCAT.SD (6) , RBMST (10) 

CoMMON/HP 14/  EL.GCB,GYR.RGY.VCG,BRCL.RK33«RP35*RMS5 
COMMON /HP  is/  A33(30) ,A35(4»30) . A53 (4  * 30 ) » ASS (4,30) .C35S.C55S. 

X 833(4.30.3) , B35 ( A , 30  « 3 ) »B53 (4.30.3) ,855(4,30,3) 

COMMON/HP  16/  AHP(30> ,DHP(4,30)  ,AP (30) .UP (4,30) 
common/hp 17/  omega.un,pah(19) ,pvh< 19) 

CUMMON/HP18/  8LUG (19,19) ,YL0G(19,l9) 

CUMM0N/HP19/  KASE(4),MIL(4) ,CWR1 (4) ,CwR2(4) .WFP(4,30»3). 

X WNI4.30.3) » SWR (4,30,3) ,RWS(4,30.3) 

Common ''HP  20  / 1 1 .EFH  (<*  ,30 « 3)  ,EMP(4,30»3)  .EMM4.30.3) 

COMPLEX  II.tFH.EMP 

END  OF  COMMON  DECK 

(make  all  changes  above  these  cards) 

CoMMON/ENOCOM/ENUCUM 

c 

Complex  egh.enp 

COMM0N/PR23/  EGH (4.30.3) ,ENP (4.30.3) 

C 

1 FORMAT ( 1H0.5X. ‘MOTION  AMPLITUDES  AND  PHASES*//// 

X 6X . * THE  HEAVE  AMPLITUDE  IS  SCALED  BY  A.*// 

X 6X . * THE  PITCH  AMPLITUDE  IS  SCALEO  BY  2* . 1 H* . * A/L . *// 

X 6X. 1H*.*P1 TCH  DENOTES  PITCH  AMPLITUDE  SCALED  BY  A*.1H*. 

X * (WAVE  NUMBER) .*// 

X 6X.*A  IS  THE  WAVE  AMPLITUDE.*//// 

X 6X,*FN  IS  THf  FROUOE  NUMBER  = (FORWARO  SPEED) /SORT* ,6H (G*L ). // 

X 6X.«BETA  IS  THE  WAVE  HEADING  ANGLE  IN  DEGREES.*/ 

X 6X  « *BE  T A » 180.  FOR  HEAD  SEAS.*// 

X 6X. “OMEGA  IS  THE  ENCOUNTER  FREUUENCY  NON-O I MENS  I ONAL I ZED  BY*. 

X » SORT (G/L) .*// 

X 6X . * THE  PHASE  ANGLE  IS  MEASURED  IN  DEGREES  WITH  RESPECT  TO  THE  * 
X “WAVE  AT  THE  CG.  *// 

X 6X.*L/LAM  IS  L/ (WAVE  LENGTH).*// 

X 6X,*F0R  FOLLOWING  SEAS  THE  FREUUENCY  DUMAIN  IS  DIVIDED  INTO  *. 

X *THREE*/6X»* REGIONS  SEPARATED  BY  TWO  CRITICAL  L/LAM  DENOTED  *. 

X *CWR1  AND  CWR2 . * ) 
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5 FoRMAT(lHl,l4A6»18X,A6.l4/) 

8 F URMAT ( 1 HO  »5X  » *MOT I ON  AMPLITUDES  AND  PHASES*/6X .*FN  = *,F 5.3/ 

X 6X»*BETA  » *,F6.I/  6X»*REGI0N*» 1 1 ,*  CWRl  = *,F9.4,«  CWR2  = *, 

X F9.4//6X,*OMEGA*,5X,*L/LAM*.5X»*HEAVE*.5X»*PHASE*»5X.*PITCH*. 

X 5X,*PHASE*,4X» 1H*.*PITCH*.5X.*LAM/L*) 

9 FORMAT ( 1 HO » 5X » #MOT I ON  AMPLITUDES  AND  PHASES*/6X.*FN  = *,F5.3/ 

X 6X  « *BET  A = *,F6.1//6X.*0MEGA*.5X,«L/LAM*,5X,*HEAVE",5X,*PHASE*. 
X 5X,*PI TCH*,5X.*PHASE*,4X.1H*,*PITCH*,5X.*LAM/L*) 

10  FORMAT (FI  1.4, FI  0.4 ,F 10. 5, FI  0.3, FI  0.5, FI  0.3, FI  0.5, FI  0.4) 

150  FORMAT ( 1H0, BOX, 23HHULL  SEPARATION/BEAM  = F7.4) 

IF ( 1 . EQ. 0 ) CALL  PGM1B 
CON=AMP2/VUL 

CALL  SOLVE (3.RF33.CON, 1 .NFN.l .NBTA.l ,NFR) 

DO  20  J J= 1 « NFN 
LMT=MIL ( JJ) 

U (LMT.LE.O)  GO  TO  20 
DO  30  N=1.LMT 
00  30  MM= 1 »NBT A 
EFH( JJ.N.MM)=EGH( JJ.N.MM) 

30  EMP(JJ,N.MM)=ENP(JJ.N.MM) 

20  CONTINUE 
NRAG=NPAG*1 

WRITE (6,5)  (PATT (I) .1=1.6) ♦ (TITLE(I) .1=1,8).PATT(7).NPAG 
WRITE (6. 150) PATIO 
WRITE (6.1) 

KR  = 0 

NR AG=NP AG  * 1 

WRITE (6.5)  (RATT (I) .1=1.6) ♦ (TITLt (I) .1=1,8) .PATT(7) , NPAG 
WRITE (6, 150, RATIO 
DO  44  MM=1  , JBTA 
DO  40  JJ=1 .NFN 
LMT=MIL ( JJ) 

If  (LMT.LE.O)  GO  TO  40 
l_MR  = LMT  +4 

IF  (KASE(JJ) .NE.O)  LMP=LMP.l 
IF (55-KR.GE.LMP)  GO  TO  43 
Kk  = 0 

nrag=npag* 1 

WRITE (6,5)  (PATT (I), 1 = 1, 6). (TITLt ( I ) , I = 1 , 8 ) ♦ PA T T ( 7 ) « NPAG 
WRITE(6,150)RATIU 

43  IF  (KASE ( JJ) .EQ.O)  GO  TO  41 

WRITE (6.8)  FN(JJ) , WANG (MM) .KASE(JJ) .CWR1 (JJ) ,CWR2(JJ) 

Go  TO  42 

41  WR I TE (6 .9 ) FN( JJ) .WANG(MM) 

42  WRITE (6,10)  (OMEN ( N) , SWR ( J J , N ,MM) ,EFM ( JJ ,N , MM ) .EMP ( JJ ,N ,MM ) , 

X EMK (JJ.N.MM) ,RWS( JJ.N.MM) ,N=1,LMT) 

KR=KR ♦LMP 
40  CONTINUE 

44  CONTINUE 
C«LL  AERTRN 
END 
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SUBROUTINE  NILS(NOS.MS,ST.OS. JFK) 

DIMENSION  ST (30) »DS< 30) 

fll  FORMAT (1H0.5X.33HINCORRECT  STATIUN  SPACINGS  - STOP) 

1 DU  5 K=l,NOS 
5 D5(K)=0.0 
N5M=N0S-2 
NiX=2* (NOS/2) 

IF (NSX.EQ.NOS)  GO  TO  11 
DU  10  Ks 1 .NSM * 2 
D l =ST  < K ♦ 1 ) -ST (K ) 

D2=ST (K*2) -ST ( K ♦ 1 ) 

IF (ABS(D1-D2) .GT. 0.001)  GO  TO  777 

0=0.1*02*0.16666667 

Db(K)=OS(K> *0 

DS(K*l)=OS(K*l) ♦4.0*0 

Db<K*2)=OS<K*2)*D 

10  CONTINUE 
GO  TO  7B 

11  I*-  < (2*(MS/2)  ) .EQ.MS)  GO  TO  12 
Mb  1 =MS-2 

GJ  TO  13 

12  Mb l =MS- 1 

13  Mb2=MS 1 ♦ 1 
Mb3=MS2* 1 
Mb-*=MS3*1 

If ( (MSI .LT.3) .OW. (MS4.GT.NSM) ) GU  TO  777 
MbO=MSl-2 
0^  20  K = 1 . MSO * 2 
0 1 =ST ( K ♦ 1 ) -ST (K) 

02  = ST ( K *2 ) -ST ( K ♦ 1 ) 

If  (AdS(L)l-02)  .GT. 0.001)  GO  TO  777 
0=0.1*02*0.16666667 
0b(K)=0S(K) *0 
DS(K*1)=DS(K*1) ♦4.0*0 
Db(K*2)=OS(K*2) *0 

20  CONTINUE 

D1=ST (MS2) -ST (MSI ) 

0C=ST(MS3)-ST(MS2) 

D3=ST (MS'*)  -ST (MS3) 

IF  ( (ABS(Dl-02> .GT. 0.001 ) .OR. (ABS(02-03) .oT. 0.001 ) ) GO  TO  777 

0=0. 15*02*0. 125 

D">  (MSI  ) =US  (MSI  ) *0 

0->  (MS2)  =OS  (MS2)  *3.0*0 

0^>(MS3)=0S(MS3)  *3.0*0 

D^>(MS4)=OS(MSA)  *0 

OU  30  K=MSA.NSM»2 

01 =ST ( K ♦ 1 ) -ST ( K ) 

02=ST(K*2)-ST(K*1) 

IF  (Ae)S(01-D2)  .GT.0.001)  GO  TO  777 
0=0.1*02*0.16666667 
Ob(K)=OS(K) *0 
DMK*1)=DS(K*1)  *4.0*0 
Db(K*2) =US(K*?) *0 

30  CONTINUE 

78  JfK=l 
GO  TO  77 
777  JFK=0 

**ITE  <6.81  > 

77  RlTURN 
EmU 
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noon 
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SUBROUTINE  UDFCN 


X 

X 

X 


X 


X 


CUMMON/HP 1 / 
CUMMON/HP2/ 

CUMMON/HP3/ 

CUMMON/HPA/ 

CUMM0N/HP5/ 
CUMM0N/HP6/ 
CUMMON/HP7/ 
CJMMON/HPB/ 
CUMM0N/HP9/ 
CUMMON/HP 10/ 
CUMMON/HP 11/ 
CUMMON/HP 12/ 
CUMMON/HP 1 3/ 
CUMMON/HP1A/ 
CUMMON/HP 15/ 

CUMMON/HP 16/ 
CUMMON/HP17/ 
CUMMON/HP 18/ 
CUMMON/HP 19/ 

CUHMON/MP20/ 
CUMPLEX  II.EF 


NPAG.  T I TLE ( 8 ) «PATT(7) ♦RATIO 

ID.IG.IP.IND. ISD.ISTART. JA. JB. JC.K.LP.MAXD.MONO.MS. 
NIX.NLOOP.NSD.NSO.NSTR.NUX 

NOS.NM ( 30 ) .BEAM ( 30 ) .URF  T (30> ♦ ARE A (30) .MPS<30) ♦ 

A VBM ( 30 ) ♦ ST ( 30 ) ♦ IN ( 30 ) ♦ SOAR (30) ♦ X ( 30 ♦ 20 ) ♦ Y ( 30 ♦ 20 ) 
NUT  .NON.NOE  »XS (20 ) ♦ YS (20 ) ♦ XX ( 1 9 > ♦ Y Y ( 1 9 > fOEL(19) ♦ 

SNE (19) tCSE ( 19 ) 

VOL.XIP.DST  » PST  .BAM.DRT  .AIR.AMP1 ♦ AMP2 .DS ( 30 ) ,SS(30 ) 
NOW .NOL .NSP .NST .WINK (5) .SHLT (6) .SPEED (6) ♦ ST  AT (20) 
NFN.NFNS.FN (6) .FNS(b) 

NBTA,NBTAS.NBTAT.NBTAQ,WANG(8) tCOSBET (3) tSlNBET (3) 

NFR.NFRS*  OMEN ( 30 ) ♦ OMENS (30) ♦ OM I N ♦ UMAX ♦ DOME  .OWAX 

XZFO.XZVL.  XZHB ♦ XZPB  »K V » KW 

CHPDA  ♦ THKA  « SPNA  .FAL.XZFA.CLFA.DEPA.FAY 

CHRDB .THKB.SPNR.FRL.XZFB.CLFB.DEPB.FBY 

GRAV.UEPCAT.SD<6) ♦ RBMST (10) 

EL.GCB.GYR.RGY. VCG . BKCL . RF 33 . RP35 . RM55 

A33 (30) ♦ A35 (A ♦ 30 ) .A53 (A. 30) .A55 (A. 30) .C35S.C55S. 

B33 ( A ♦ 30 ♦ 3) » B35 ( A » 30  * 3 ) .B53(A.30.3) .B55(A,30,3> 

AHP ( 30 ) fOHP (A. 30) ♦ AP ( 30 ) ♦ UP ( A ♦ 30 ) 

OMEGA fUN,PAH( 19) ,PVH(19) 

BLOG ( 19 ♦ 19 ) ♦ YLOG ( 1 9 * 19) 

K ASE (A) .MIL (A) tCWRl (A) ,CWR2(A) ♦ WFR ( A ♦ 30 ♦ 3 ) ♦ 

WN  ( A ♦ 30  ♦ 3 ) ♦ SWR  ( A ♦ 30  ♦ 3 ) *KWS(A.30.3> 

1 1 .EFH (A, 30. 3) tEMP ( A ♦ 30 ♦ 3 ) »EMK (A. 30. 3) 

H,EMP 


END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CAROS) 

cummon/endcom/endcom 

c 

DU  10  JJ= 1 *NFN 
KASE ( JJ) =KASE  ( 1 > 

MIL ( JJ) =0 
CwRl ( JJ)=0.0 
CWR2 ( JJ) =0.0 
DU  10  MM= 1 .NBT A 
DU  10  N=1 .NFR 
WFR ( JJ.N.MM) =0. 

WN( JJ.N.MM)=0. 

10  SWR ( J J ♦ N * MM ) =0  • 

IF ( JC.EQ.2)  GO  TO  2 
DU  20  JJ= 1 tNFN 
MIL ( JJ) =NFR 
DU  20  MM= 1 tNBT  A 
FNC=FN(JJ)*COSBET (MM) 

IF (ABS(FNC) .LE.l.E-06)  GO  TO  31 
DU  30  N=1.NFR 
TAU=OMEN(N)*FNC 

WFR( JJ.N.MM) r.5*  < 1 .-SORT  < 1 .-A.*TAU) ) /FNC 
WN( JJ.N.MM) =WFR (JJ.N.MM) *WFR (JJ.N.MM) 

30  SWR( JJ.N.MM) =WN( JJ.N.MM) /6.2B3 1853 
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GU  TO  20 
DU  35  N»1 ,NFR 
WFR(JJ,N.MM)aOMEN(N> 

WN ( J J * N « MM ) «OMEN ( N ) »OMEN ( N ) 

35  S*R< JJ.N.MM) a*N( JJ.N.MM) /6. 283 1853 
20  CONTINUE 
GU  TO  7 

FOLLOWING  SEA  CALCULATIONS 

2 CONTINUE 

DU  40  MM*1 *NBTA 
CUSBaCOSBET (MM) 

DO  40  J Ja 1 »NFN 
FNC*FN ( JJ) #CUSB 
C«Ta.25/FNC 

CWR1 (JJ)=2.0*CRT**2/3. 1415927 
CWR2(JJ)=4.0*CWR1 (JJ) 

DU  60  N=1 .NFR 

IF (KASE ( 1 ) .NE.3  .AND.  OMEN (N) .GT .CRT t GU  TO  40 

MlL(JJ)aMIL(JJ)*l 
T AU=FNC*OMEN (N ) 

IF (KASE<1) .EQ.l)  WFR (JJ.N.MM) =.5* < 1 .♦SORT ( 1 ,-4.*TAU) > /FNC 
IF  (KASE  < 1 ) .E(l.  2)  WFR(JJ»N*MM)=.5*  ( 1 .-SURT  ( 1 ,-4.*TAU)  ) /FNC 
IF (KASE ( 1 ) .EG. 3)  WFR(JJ,N.MM)=.5"(1.*SURT(1.*4.*TAU) ) /FNC 
WN( JJ.N.MM) =WFR ( JJ.N.MM) *WFR ( JJ.N.MM) 

S«R ( JJ.N.MM) =WN( JJ.N.MM) /6.2B31BS3 
60  CONTINUE 

40  CJNTINUE 

7 RtTURN 

END 
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n r>  n n 


SUBROUTINE  FRANK 
C 

CUMMON/MP 1 / NPAG»TITLE (8) »PATT ( 7 ) .RAT 10 

CUMM0N/HP2/  ID.IG.IP.IND.ISD.ISTART.JA.JB, JC.K.LP.MAXD.MONO.MS. 
X NI X .NLOOP .NSD.NSO.NSTR.NUX 

CUHM0N/HP3/  NOS.NMOO)  ,BEAM(30>  .DRFT  (30)  ,AREA(30)  ,MPS<30>  , 

X A VBM ( 30 ) »ST (30) » IN<30) » SOAR (30) .X (30 1 20) * Y (30*20) 

CUMMON/hPA/  NUT  » NON* NOE ♦ XS ( 20 ) ♦ YS <20 ) » XX ( 19 ) , Y Y < 1 9 > . DEL < 19 ) . 

X SNE (19) »CSE (19) 

CUMM0N/HP5/  V0L.XIP.DST.PST.BAM.DRT.AIR.AMP1 ,AMP2,DS(30) .SS (30) 
CUMM0N/HP6/  NOW .NOL.NSP.NST. WINK (5) . SHLT (6 ) . SPEED <6 ) .ST AT (20) 
CUMMON/HP7/  NFN.NFNS.FN (6) ,FNS(t>) 

CUMMON/HP8/  NBTA.NBTAS.NBTAT ,NBTAQ,WANG(8) .COSBET (3) .SlNBET (3) 
CUMMON/HP9/  NFR.NFRS.OMEN(30) ,OMENS(30) .OMIN.UMAX.DOME .OWAX 
COMMON /HP  10/  XZFO.XZVL.XZHB.XZPH.KV.KW 
COMMON /HP 11/  CHRDA.THKA.SPNA.FAL.XZF A.CLFA.DEPA.FAY 

common/hp 12/  chrdb.thkb.spnb.frl.xzfb.clfb.depb.fby 

COMMON/HP  1 3/  GRAV,DEPCAT.S0(6) .RBMST (10) 

COMMON/HP  1 A/  EL.GCB.GYR.RGY. VCG.BPCL.RK33.HP35.PMb5 
C0MM0N/HP15/  A33 ( 30 ) ,A35(A,30) ,AS3(A»30) ,AS5(A.30> .CJ5S.C55S. 

X B33 ( A . 30 .3 ) »B35 ( A .30 .3) .Bb3(A,30,3) .B55(A.30,3) 

COMMON/  (P16/  AHP ( 30 ) .DHP(A.30) ,AP(30) *DP(A,30) 

CUMMON/HP 17/  OMEGA. UN. PAH(19) »PVH(19) 
common/hp ia/  blog<19.19) ,ylog(19.19> 

COMMON/HP  19/  KASE(A) .MIL (A) .CWPl (A) ,CWP2(A) . WFP ( A . 30 . 3 ) » 

X WN ( A » 30  * 3 ) . SWR ( A . 30  » 3 ) »PWS(A.30.3) 

COMMON /HP20/  II .EFH(A,30»3) »EMP(A,30»3) »EMK (A, JO, 3) 

COMPLEX  II.EFH.EMP 


END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 


C 


CUMMON/ENUCUM/ENDCUM 

Complex  CEXH (A.30,3) , CEXM ( A , 30 , 3 ) .EKXCD ,EKZD Y , F 35 , G3S , I OW , P3 . XU 
9 FORMAT ( 1H0.5X.31HMATHIX  IS  SINGULAR  FOP  OMEGA  = F7.A) 

X 1P2=X I P*X IP 
CMONO=l . 

IF (MONO. EQ. 2)  CMONO=2. 

SAREA=AREA (K ) *BEAM (K ) *DRFT (K ) 

IF(BEAM(K)  .LE.  l.E-Ofl)  SAREA=AREA(K)*0PFT(K)**2 
IF (MPS(K) .NE.l)  CALL  FINIT 
DU  10  N= 1 ,NFR 
OMEGA=OMEN(N) 

un=omega*omega 

10W=I I/OMEGA 

IF  (MPS(K) .NE.l)  GO  TO  12 
DHHA=EMK(1,N,1) 

DHHB=EMK(2,N,1) 

GU  TO  17 
12  CALL  PRESS 

IF (ID.EU.l)  GO  TO  11 
WP I TE ( 6 .9 ) OMEGA 
GU  TO  77 
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11  DHHAaO.O 
DHMBaO.O 
DU  20  I * 1 1 NON 
CUN*CMONO*OEL ( I ) •CSE ( I ) 

DHHA*DHHA»CUN*PAH ( I ) 

20  DHHB»DHHB*CON*PVH(I> 

IK (MPS(K)  .NE.  2)  GO  TO  17 
EMK(l,N.l)*OHHA 
EMK(2,N»1)=DHHB 
17  dhpa=-xip*ohha 
DMPB=-XIP*DHHB 
QPPA=XIP2*0HHA 
DPPB=XIP2*0HHB 
A33(N)=A33(N)  ♦DST*DHHA 
ArtP(N)=AHP(N) ♦DST»UHPA 
AP(N)=AP(N) ♦DST*DPPA 
DU  30  JJ=1 »NFN 
XU=-XIP-IDW*FN ( JJ) 

CUNST=0. 

CUNSA=0. 

IKiK.GE.KV  .AND.  K.LE.KW)  GO  TO  90 
CUNST=UN*SAREA*XZHB*FN ( JJ) *cmono 
CUNSA  = XZPB  * CONST 

90  B33 ( JJ.N, 1 )=B33 ( JJtN.l ) *DST* ( DHHfct* CONST ) 

DP ( JJtN) =DP ( JJ,N) *UST* (DPPB*C0NSA*XIP2) 

DHPi JJ.N) =DHP< JJ.N) *DST* (DHPB-XIP*CUNST) 

89  IF  (MIL< JJ) .LT.N)  GO  TO  30 
DU  33  MHsl.NBTA 
CJSB=COSBET (MM) 

s:nb=sinbet  <mm) 

*NT=WFR( JJ.N.MM) 

WNU=lrfN ( JJ.N.MM) 

tKXCD=CEXP ( I I*WNO*XlP*COSR) *DST*CMONU 
IK (MPS(K) .NE. I ) GO  TO  42 
F 3S=CEXN ( JJ.N.MM) 

G35=CEXM (JJ.N.MM) 

GU  TO  lbO 
42  F 35  = ( 0 . « 0 . ) 

GJ5=  <0. ,0. > 

IF (MONO.NE. 1 ) GU  TO  32 
DU  41  1 = 1.  NUN 

EKZDY  = CEXP(WNO* ( YY ( I ) - I I*XX ( I ) *S lNB ) ) *UEL ( I ) 
E I A2S=“SNE ( I ) *S I NB 
P J=CMPLX (PAH ( I ) ,PVH(I) ) 

CSEI =CSE ( I ) 

F J5=F35*CSEI*EKZDY 
GJ5=G35*P3*<ETA2S»II*CSEI) *EKZDY 
41  CUNTINUE 

G 35=1 I*WNT/0MEGA*G35 
GU  TO  18 

32  DU  31  1=1. NUN 

EKZD=EXP  <WNO*YY ( I ) ) •DEL ( I ) 

CAYYS=WNO*XX ( I ) *sinb 
CLUSK=CSE ( I ) *COS (CAYYS) 
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SINKYS«SIN(CAYYS) 

C NOTE—  ETA2»-SNE(I>  * ETA3»CSE(I> 

E TA2S»-SNE ( I ) *SINB 
PJ-CMPLX (PAH ( I ) ,PVH ( I ) ) 

FJ5*F35*CCOSK*EKZD 

GJ5»G35» (-CCOSK*ETA2S«SINKYS) *EKZD*P3 
31  CONTINUE 

GJ5»WNT/0MEGA*G35 
18  IF (MPS(K) .NE.2)  GO  TO  160 
CtXH< JJ»N.MM)aF35 
CtXM ( JJtNtMM) *G35 

160  EFH ( JJ»N »HH) »EFH ( J J*N *MM) ♦EKXCD* IF  35 *035) 

EHP( JJ.N*MM)=EMP( JJ»N*MM) ♦EKXCD* (-XIP*F35»XU*G35) 
33  CUNTINUE 
30  CUNTINUE 
10  CUNTINUE 
77  RtTURN 
E'^U 
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SUBROUTINE  FINIT 

CUMMON/HP2/  ID. IG»IP« INO. ISO. I START  . JA, JH  , JC »K » LP .MAXD , MONO . MS , 
X MXfNLOOP.NSDtNSO.NSTR.NUX 

CUMM0N/HP4/  NUT,NON.NOE.XS(20) ,YS<20) ,XX<19) ,YY<19> ,0EL(19) . 

X SNE ( 19) .CSE (19) 

COMMQN/HP 18/  BLOG (19,19) ,YL0G(19.19) 

DIMENSION  X ( 20 ) . Y (20) 

Euul VALENCE  ( XS.X) . ( YS.Y) 

Pl33, 1415927 
OPNL=0. 

DCNL=0. 

PHL  = 0. 

PCL*0. 

DU  10  1=1, NON 
XMlsXXd)-X(l) 

ym=yy  ( i ) -y  ( i ) 

YP1=YY ( I ) ♦ Y ( 1 ) 

F PR  1 = . 5* ALOG (XMl**2*YMl**2) 

FCR1=.5*AL0G (XM 1**2* YP 1**2) 

APR1=ATAN2  (YM1  ,XM1  ) 

ACR1=ATAN2(YP1,XM1) 

IF (I  .GE.  MAXD)  GO  TO  30 
IF(YM1  .LT.O.)  APRl=APR1.2,*PI 
IF(YP1.GE,  0.)  ACR 1 =-P I 
30  CUNT1NUE 

IF (MONO  .EQ.  1)  GO  TO  35 
XP1=XX(I)*X<1) 

FPL1=.5*AL0G(XP1**2»YM1**2) 

FCL1=.5*AL0G (XP 1**2* YP 1**2) 

ARL1=ATAN2(YM1,XP1) 

ACL 1 = AT  AN2 ( YP1 » XP1 ) 

35  CONTINUE 

DU  10  J= 1 .NON 
XM2=XX ( I ) -X ( J ♦ 1 ) 

YM2= YY ( I ) -Y ( J. 1 ) 

YR2=YY ( I ) ♦ Y ( J* 1 ) 

FPR2=.5*ALOG (XM2**2*YM2**2) 

FCR2=,5*ALOG(XM2*»2*YP2**2) 

ARR2=ATAN2 ( YM2.XM2) 

IF ( I .GE.  MAXO)  GO  TO  20 
J11=J*1 

IF (I  .GE.  Jll  .AND.  APR2  .LE.  0.)  APR2=APR2»2.*PI 
. IF (Jll  .GT.  MAXO  .AND.  APR2  ,LT . 0.)  APR2=APR2*2.*PI 
I i.  1P=  < APR  1 - APR 2 ) *10000.0 
ZIP=IZIP 
Z1P=ZIP/10000.0 

IF (ZIP  .GT.  PI)  APR1=APR1-2.*PI 
IF ( XM2  .GT.  0. ) GO  TO  4 
GU  TO  5 
20  J1=J*1 

IF ( XM2  .GT.  0.)  GO  TO  4 
IF ( J1  .GT.  I ) GO  TO  6 

C ****  CARDS  BELOW  ARE  FOR  CONVEX  OR  CONCAVE  TOP  DECK  *** 

I F ( YM2  .LT.  0.)  APR2=APR2*2.*PI 
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GU  TO  5 

C •#**  CARDS  BELOW  ARE  FUR  CONVEX. FLAT  OR  CONCAVE  BOTTOM  • ** 

6 IF(YM2  #GE.  0.)  APR2«APR2-2.*PI 
S IF (YP?  -LT » 0*)  GO  TO  L 
ACR2—P1 
GO  TO  3 

L ACR2=ATAN2 ( YP2.XM2) 

3 S I M J=SNE ( I ) *CSE ( J ) -SNE < J) *CS£  < I ) 

CiMj=CSE (I )*CSE( J) »SNE ( I ) *SNE  < J) 

S1PJ=SNE(I>*CSE(J)»SNE<J)*CSE<I) 

C IPJ=CSE  < I ) *CSE  < J> -SNE ( I ) *SNE  < J) 

DPNR=SIMJ* (FPR1-FPR2) ♦CIMJ* (APR1-APR2) 

PPR=CSE ( J) * <XM1*FPR1-YM1*APR1-XM1-XM2*FPR2^YM2*APR2»XM2) *SNE ( J) * ( Y 
lMl*FPRl+XMl*APRl-YMl-YM2*FPR2-XM2*APR2*YM2) 

DCNR=SIPJ* (FCR1-FCR2) ♦CIPJ* (ACR1- ACR2) 

PCR=CSE ( J) *<XM1*FCR1-YP1*ACR1-XM1-XM2*FCR2»YP2*ACR2+XM2) *SNE ( J) * ( Y 
1P2*FCR2>XM2*ACR2^YP1-YP1*FCR1-XM1*ACR1-YP2) 

IF (MONO  .EQ.  1)  GO  TO  37 
XP2=XX ( I ) *X ( J* 1 ) 

FPL2=.5*AL0G (XP2**2*YM2**2) 

FCL2=.S*ALOG(XP2**2*YP2**2) 

APL2  = ATAf:2  ( YM2.XP2) 

ACL2=ATAN2 (TP2.XP2) 

DPNL=S1PJ* (FPL2-FPL1 ) ♦ C I P J* ( APL2-APL 1 ) 

PPL  = CSE  (J)  * <XP2*FPL2-YM2*APL2-XP2-XP1«FPl1  ♦YM^APLl  +XP1  > *SNE ( J) * ( Y 
1 Ml *F PLl *XP1*APL1 ♦YM2-YM2*FPL2-XP2*APL2-YM1 ) 

DCNL=SIMj» (FCL2-FCL1 ) ♦CIMJ* (ACL2-ACL1) 

PCL=CSEl Ji « (XP2*FCL2-YP2*ACL2-XP2-XP1*FCL1*YP1*ACL1+XP1 ) ♦ SNE ( J) * ( Y 
1P2*FCL2  + XP2*ACL2-YP2-YP1*FCL1-XP1*ACLUYP1  ) 

37  CONTINUE 

BLOG ( I . J) =DPNR+DPNL-DCNR-DCNL 

YLUG ( l.JI=PPR*PPL-PCR-PCL 

IF (J.EQ.NON)  GO  TO  10 

XU1=XM2 

Y M 1 = Y M 2 

FPR1=FPP2 

FCR 1 =FCP2 

C ****  NEXT  CARD  HANDLES  ANGLE  DIFFERENCE  ACROSS  MAXD  POINT  **** 

Ip  (I  .LT.  MAXD  .ANU.  (JM).EU.  MAXU  .AND.  APR2  .LT.  0.)  APP2  = APR2 
1*  2 . *P I 
APP1=APR2 
ACR 1 = ACR2 
YP 1 = YP2 

IF (MONO  ,EO.  1)  GO  TO  10 
XP1=XP2 
FPL1=FPL2 
FCL1=FCL2 
APL 1 = APL2 
ACL  1 = ACL2 
10  CONTINUE 
RtTURN 
EhU 
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SUBROUTINE  PRESS 

CUMMON/HP2/  ID, IG» IP. IND.ISD, ISTART. JA, JB, JC,K,LP.MAXD,MONO,MS. 

X NIX .NLOOP  *NSD  *NSO»NSTR»NUX 

CUMM0N/HP4/  NUT .NON. NOE. XS( 20) » YS ( 20 ) . XX ( 1 9 ) . YY ( 19 ) .DEL (19) . 

X SNE (19) ,CSE (19) 

CUMMON/HP 17/  OMEGA. UN, PAH(19) ,PVH(19) 

COMMON /HP  18/  BLOG (19, 19) ,YL0G<19,19) 

DIMENSION  CON (38,1) ,CT( 38,38) .SOUR (19, 19) .WAVE (19,19) 

DIMENSION  I NDEX (38,3) 

DIMENSION  X (20) ,Y (20) 

EQUIVALENCE  (XS.X) » (YS.Y) 

DPL*0. 

PPL*0. 

D*L=0. 

PWL=0. 

DU  10  1=1, NON 

Ni=NON* I 

CUN ( I , 1 ) =0  *0 

CUN (NI , 1 ) »OMEGA«CSE ( I ) 

22  XKl=uN*(XX(I)-X(l) > 

YKl=-UN*(YY(I)*Y(l)  ) 

CALL  DAVID (XR1 ,YR1 ,EJl ,CXR1 ,SXR1 ,RAR1 ,RBRl ,CR1  ,SR1  ) 

Ih (MONO  .EO.  1)  GO  TO  37 
XLl=UN* (XX ( I ) ♦ X ( 1 ) ) 

YL1=YR1 

CALL  DAVID(XL1 ,YL1 ,EJ1 ,CXL1,SXL1 ,RAL1,RBL1 ,CL1 ,SL1 ) 

37  CONTINUE 

DU  10  J= 1 ,NON 
NJ=NON+ J 

SIP J=SNE ( I ) *CSE ( J) ♦SNE ( J) *CSE ( I ) 

C IP J=CSE ( I ) *CSE ( J) -SNE ( I ) *SNE ( J) 

XR2=UN* (XX ( I ) -X ( J* 1 ) ) 

YP2  = -UN* (YY ( I ) ♦ Y ( J*  1 ) ) 

CALL  DAVID (XR2.YR2,EJ2,CXR2,SXR2,RAR2,RBR2,CR2,SR2) 
DPR=2.*(SIPJ*(CR1-CR2)-CIPJ» (SR1-SR2) ) 

PPR=2./UN* (SNE ( J) * (RAR1-RAR2) *CSE ( J) * (RBR1-RBR2) ) 

D*R=b. 283 1853* (E J2* < SXR2*C IP J-CXR2*S I P J) -E J 1 * ( SXR 1 *C IP J-CXR 1 *S I P J ) 
1 ) 

P*R=b. 283 1853/UN*  (Ejl*  (SXR1*CSE  ( J)-CXR1*SNE  ( J)  ) -EJ2*  (SXR2*CSE  (J)  - 
1CX«2*SNE ( J) ) ) 

I)-  (MONO  .EO.  1)  GO  TO  38 
S I M J=SNE ( I ) *CSE ( J) -SNE ( J) *CSE ( I ) 

C 1 M J=CSE ( I ) *CSE ( J) »SNE ( I ) *SNE ( J) 

XL2=UN* (XX (I) ) 

YL2=YR2 

CALL  OAVIO(XL2,YL2,EJ2,CXL2,SXL2.RAL2,RBL2,CL2.SL2) 

DPL=2.* (CIMJ* (SL1-SL2) -SIMJ* (CL1-CL2) ) 

PPL =2. /UN* (SNE ( J) * (RAL1-RAL2) ♦CSE ( J) * ( RBL2-RBL 1 ) ) 

D*L=6.2831853* (EJ1*(SXL1*CIMJ-CXL1*SIMJ)-EJ2* (SXL2*CIMJ-CXL?*SIMJ) 

1 ) 

P*L  = 6. 2831853/ UN *(tJ2*(SXL2*CSE(J) *CXL2*SNE ( J) ) -E J 1 * ( SXL 1 *CSt ( J) ♦ 

1 C*L 1 *SNE ( J ) ) ) 

38  CONTINUE 
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CT ( 1 « J) *BLOG ( I * J) ♦DPR^DPL 
Cr ( N I ,NJ) *CT ( I * J) 

CT ( I »NJ) sDWR^DWL 
CT (NltJ)a-CT ( I «NJ) 

SOUR ( I • J) *YLOG ( I ♦ J) ♦PPR^PPL 

WAVE (ItJ)»PWR*PWL 

IT ( J.EQ.NON)  GO  TO  10 

XKl=xR2 

YK1=YR2 

EJ1=£J2 

CW1=CR2 

SR1=SR2 

RAR1=RAR2 

RbRl =RBR2 

CXR1=CXR2 

SX«1=SXR2 

IT  (MONO  .EQ.  1)  GO  TO  10 

XL  1 = XL2 

YL 1 = YL2 

CL  1 =CL2 

SL 1 =SL2 

RAL1=HAL2 

RtiL 1 =RBL2 

CXL1=CXL2 

SXL1*SXL2 

10  CONTINUE 

CALL  MATINS(CT,38,N0E,C0N, 1 ♦ 1 «DTKM, ID, INDEX) 

GUTO (11*77) *10 

11  DO  20  1=1, NUN 
PAH(I)=0.0 
PVH(I)=0.0 

DO  30  J= 1 , NUN 
N J=NON* J 

PAH  ( I ) =PA.H  ( I ) ♦CON  ( J * 1 ) *WAVE  ( I , J)  -CON  ( N J , 1 ) *SOUR  ( I , J ) 
30  PVH ( I ) =PVH ( I ) ♦CON ( J, 1 ) *SOUR ( I , J) +COH(NJ, 1 ) *WA VE (I , J) 
PAH(I)=OMEGA*PAH(I) 

20  PYH( I )=OMEGA*PVH( I) 

77  Rt turn 
END 
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SUBROUTINE  DAV ID < X , Y ,E , C . S . R A ,RB ,C I N , SUN) 

C DAVID  - COMPUTATION  OF  FREQUENCY  DEPENDENT  PARTS  OF 

C 2-D  POTENTIALS  ANO  KERNELS 
DIMENSION  F (5) ,D<5) 

DATA  (F (I) , 1*1,5) /0. 521 75561 ,0.39866681 ,0.07594245, 
1 0.003611758,0.000023369972/ 

DATA  <D< I) , 1*1 ,5) /0. 26356032. 1.4134031 ,3.5964258, 

1 7.08581,12.640801/ 

0=3.1415927 
A T = AT  AN2 ( X , Y ) 

ARG=AT-0.5*U 
E=EXP ( - Y ) 

C=COS (X) 

S=S I N ( X ) ' 

R=X*«2*  Y**2 
AL  = 0.5*ALOG  <R) 

A = -Y 
B = -X 

IF (A.GE.0.0)  GO  TO  78 
IF (B.EQ.0.0)  GO  TO  79 

78  IF  (W.GE.100.  ) GO  TO  10 

79  TtST=0. 00001 

IF  (R.LT.1.0)  GO  TO  5 
TtST=0.1*TEST 
IF (W.LT.2.0)  GO  TO  5 
TlST=0. 1*TEST 
IF (R.LT.4.0)  GO  TO  5 
T(lST  = 0.1*TEST 
5 CUNTINUE 

SUMC=0 . 57721566* AL+Y 
SUMS= A T ♦ X 
TL  = Y 
T 5=  X 

DU  1 K= 1 ,500 

TU=TC 
CUX  = K 
CA  Y = K ♦ 1 

F«CT=COX/CAY**2 

TL=FACT*  < Y*TC-X*TS> 

T9=F ACT* < Y*TS*X*TO> 

SUMC=SUMC*TC 

sums=sums*ts 

If  (K.GE.500)  GO  TO  3 

IF  ( (ABS(TC) ♦ARS(TS) ) .GT.TEST)  GO  TO  1 
3 C1N=E* (C*SUMC*S*SUMS) 

SUN=E* (S*SUMC-C*SUMS) 

GU  TO  4 
1 CUNTINUE 
10  Gl =0 . 

G<?  = 0 . 

DU  20  1=1.5 
DtN=  <-Y*U ( I ) ) **2»X**2 
GA=F ( I ) * ( -Y*D ( I ) ) /DEN 
GH=F ( I ) * ( -X ) /DEN 
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G t =G 1 *GA 
G«?  = G2  ♦ GB 
C1N=E*0*S-G1 
SGN=- (E*G*S»G2) 
RA=AL-C IN 
Rd=AKG*SON 
Rt  TURN 
E'^0 


FUNCTION  ATAN3 ( Y ♦ X ) 

A I N3  - MODIFICATION  OF  ATAN2.  SETS  AT AN2 ( 0 . 
It-  (Y)  1 ,2.1 
I F ( X ) 1 , 3 , 1 
A f AN3  = 0 .0 
GU  TO  4 

A1AN3=ATAN2(Y,X> 

RtTURN 

END 


ooo  ooo  ooo  oooooooooooooooooo 


SUBROUTINE  MATINS (A,NR,N1 ,B.NC»M1 ,D£TERM, 10, INOEX) 

MATRIX  INVERSION  WITH  ACCOMPANYING  SOLUTION  OF  LINEAR  EQUATIONS 
PIVOT  METHOO 

FORTRAN  IV  SINGLE  PRECISION  KITH  ADJUSTABLE  DIMENSION 
FtBRUARY  1966  S GOOO  DAVID  TAYLOR  MODEL  BASIN  AM  MATA 
WHERE  CALLING  PROGRAM  MUST  INCLUDE 

DIMENSION  A (NR»NR) » B (NR*NC) * IN0EX(NR,3) 

N IS  THE  ORDER  OF  A 

M IS  THE  NUMBER  OF  COLUMN  VECTORS  IN  B (MAY  BE  0) 

DETERM  *ILL  CONTAIN  DETERMINANT  ON  EXIT 
ID  WILL  BE  SET  BY  ROUTINE  TO  2 IF  MATRIX  A IS  SINGULAR 
1 IF  INVERSION  WAS  SUCCESSFUL 
A THE  INPUT  MATRIX  WILL  BE  REPLACED  BY  A INVERSEE 

B THE  COLUMN  VECTORS  WILL  BE  REPLACED  BY  CORRESPONDING 

SOLUTION  VECTORS 
INDEX  WORKING  STORAGE  ARRAY 

IF  IT  IS  DESIRED  TO  SCALE  THE  DETERMINANT  CARD  MAY  HE 

DELETED  AND  DETERM  PRESET  BEFORE  ENTERING  THE  ROUTINE 

EQUIVALENCE  ( I ROW  » JROW  ) « ( ICOLlJM.  JCOLUM)  , (AMAX,  T,  SWAP) 

DIMENSION  A(NR*NR),  B(NR,NC),  INDEX(NR,3> 


INITIALIZATION 


N=N1 
M = M 1 

DtTERM=l . 

DU  20  J=1*N 
20  INDEX ( J»3>  = 0 
DO  550  I = 1 » N 

StARCH  FOR  PIVOT  ELEMENT 

AMAX  = 0.0 
DU  105  J=1,N 

IF(INDEX(J.3)-1)  60,  105,  60 
60  DU  100  K=1,N 

IF  ( INDEX (K»3) -1 ) 80,  100,  715 
80  IF  ( AMAX  -ABS  ( A < J,K ) ) ) 85,  100,  100 

85  I RUW  = J 

ICOLUM  =K 

AMAX  = ABS  ( A ( J,K)  ) 

100  CUNTINUE 
105  CUNTTNUE 

INDEX ( ICOLUM, 3)  = INDEX ( ICOLUM, 3)  *1 
INDEX (1,1 ) =IR0W 
INOEX  < 1 ,2 ) = I COLUM 

INTERCHANGE  ROWS  TO  PUT  PIVOT  ELtMENT  ON  DIAGONAL 

IF  ( IROW-ICOLUM)  140*  310,  140 
140  DtTERM=-DETERM 
DU  200  L=1*N 
SwAP=A ( I ROW , L ) 
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A ( IROW»L) »A ( ICULUM  »L ) 

200  A ( ICOLUM »L) “SWAP 

IMM)  310,  310,  210 
210  OU  250  L=l»  H 
S"AP=B(IRUW»L) 

B ( IR0W»L) =8 ( ICOLUM, L) 

250  B ( ICOLUM, L) *SWAP 

DIVIDE  PIVOT  ROW  BY  PIVOT  ELEMENT 

310  PIVOT  =A(1C0LUM, ICOLUM) 

DtTERM=DETERM*P I VOT 
330  A ( ICOLUM, ICOLUM) =1 .0 
DO  350  L= 1 »N 

350  A ( ICOLUM, L ) = A < ICOLUM,L) /PI VOT 
II-  (M)  380,  380,  360 
360  DO  370  L=1»M 

370  B ( ICOLUM, L ) =8 ( ICOLUM, L) /PIVOT 

RtUUCE  NUN-P I VOT  ROWS 

380  Do  550  L1=1,N 

II-  (Ll-ICOLUM)  400,  550,  400 
400  T=A (LI , ICOLUM) 

A < L 1 , ICOLUM) =0,0 

DO  450  L= 1 ,N 

450  A (LI ,L)=A (LI ,L) -A ( ICOLUM,L) *T 
II-  (M)  550,  550,  460 
460  DO  500  L=1,M 

50  0 B(Li  ,L)=fj(Ll  ,L)-B(  ICOLUM,L) *T 
550  CONTINUE 

I 4TERCHANGE  COLUMNS 

DO  710  I = 1 » N 
L=N,I-I 

II-  ( INDEX  (L,  1 ) -INDEX  (L, 2)  ) 630,  710,  630 
630  JKOW= I NUEX  (L  , 1 ) 

JLULUM= INDEX (L ,2 ) 

Du  705  K=1»N 
S"AP=A (K , JROW ) 

A (K, JROW) =A (K, JCULUM) 

A ( K * JCOLUM ) =SW AP 
705  CUNTINUE 
710  CONTINUE 

Do  730  K = 1,N 

1 1-  ( INDEX  (K  .3)  -1)  715,720,715 
720  CONTINUE 
730  CUNTINUE 
ID  = 1 
810  RtTURN 
715  IO  = 2 

OU  TU  810 
LND 
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OVERLAY (4,0) 

PROGRAM  PGM4 

CUMMON/HP1/  NPAG.TI TLE (8) »PATT ( 7) ,RAT 10 

CUMM0N/HP2/  10*  IG.IP.  IND*  ISO,  I ST  APT  . JA,  JB.  JC,K ,LP,MAXD,MONO.MS. 
X NIX .NLOOP *NSD»NSO»NSTR» NUX 

COMM0N/HP3/  NOS.NM ( 30 ) .BEAM (30) *ORF  T (30) .AREA (30) ,MPS(30)  , 

X A VRM ( 30 ) * ST ( 30 ) * I N ( 30 ) .SOAR (30) , X ( 30 . 20 ) . Y ( 30 » 20 ) 

COMMON/HP A/  NUT .NON , NOE , XS ( 20 ) , Y S ( 20 ) , XX ( 1 9 ) , Y Y ( 1 9 ) . OEL ( 1 9 ) , 

X SNE (19) ,CSE (19) 

CUMM0N/HP5/  VOL.XlP.DST .PST .RAM. OR T .AIR,  AMP  1 . AMP2 . OS ( 30 ) ,SS (30) 
CUMM0N/HP6/  NOW, NOL.NSP.NST .WINK (S) » SHLT (6) .SPEED (6) , ST  AT (20) 
CUMMON/HP7/  NFN»NFNS.FN(6) ,FNS(b) 

COMMON/HPH/  NBTA,NBTAS,NBTAT,NB1AQ,WANG(8) .COSBET (3) .SINBET(3) 
C0MM0N/HP9/  NFR.NFRS. OMEN ( 30 ) ,OHENS(30) ,OM IN .UMAX , OUME , OWAX 
CUMMON/HPIO/  XZFO.XZvL.XZHB.XZPB.KV.Kw 
CUMMON/HP1 1/  chroa.thka.spna.fal.xzf A.CLFA.DEPA.FAY 
COMMON/HP  12/  CHROB.TMKB.SPNB.FBL.XZFb.CLFB.DEPB.FBY 
COMMON/HP  13/  GRAV.OEPCAT.SO (b) , RBMST (10) 

COMMON /HP  1 A/  EL.GCB.GYR.RGY, VCG,BRCL»RF33,RP35»RM55 
COMMON/HP  15/  A33 ( 30 ) ,A35(4.30)  ,A53<4.30) ,A55<4,30)  ,C35S,C55S. 

X B33 ( A , 30 , 3 ) .835 (A, 30, 3) .853(4,30.3) ,855(4,30,3) 

CUMM0N/HP16/  AHP ( 30 ) ,DHP(4»30)  , AP ( 30 ) .DP ( 4 , 30 ) 

COMMON/HP  17/  OMEGA , UN, PAH ( 19) »PVH<19) 

CUMMON/HP18/  BLOG (19, 19) ,YL0G(19,19) 

COMMON/HP  1 9/  KASE (4) .MIL (4) ,CWR1 (4) ,CwR2(4) ,WFP(4,30.3), 

X WN (4,30,3) » SWR (4,30.3) ,RWS(4,30.3> 

COMMON/HP20/  11  ,EFH(4,30,3) .EMP (4,30.3) ,EMK (4,30,3) 

CUMPLEX  II,EFH,EMP 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CAPOS) 

COMMON/ENDCOM/ENOCOM 

DIMENSION  LLT (2) »LUT (2) .XL (50)  ,YL (50)  .TITL (8) 

DIMENSION  BX ( 30 ) 

1 FURMAT ( 19, F9, 4) 

IMLP.LE.O  .AND,  IP.LE.O)  GO  TO  77 
II-  (ISTAPT.GT.O)  GO  TO  9 
I ST  ART= 1 
0"1AX  = 0WAX 

Pt AD (5,1 004 ) NAME1 ,NAME2,NAME3 
1004  format ( 3 a 1 o ) 

call  CAMRA V ( 35 ) 

CALL  IDFRMV (NAME1 .NAME 2, NAME  3) 

9 ENCODE (48.8.TITL)  TITLE 
8 F URMA  T ( 8A6 ) 

CALL  FRAMEVI3) 

MPK 1 =63 
MBK2=38 

IF(LP.LE.O)  GO  TO  77 
DU  100  JIC=l»NOS 
NOT=NM( JIC) 
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dX(JlC)  « 0. 

IF  (NUT  .IE.  0)  GO  TO  100 
DU  101  KIC*1 »NUT 
101  XL (KIC)=X< JIC»KIC) 

XSMsXH IN (NUT  » XL ) 

XLG=XHAX ( NUT ♦ XL ) 

0X(JIC)=XLG-XSM 
HX (JIC)=A8S(8X ( JIC> ) 

100  CONTINUE 

HAM=XMAX (NOStBX) 

D I M=XMAX (NOS»ORFT ) 

RG=1.2*AMAX1 (HAM.OTH) 

LLT (1 )=1 
LLT(2)=MS 
LOT ( 1 ) =MS 
LUT (2) =NOS 
Xt)  = 0. 

X T = WO 

Du  5 LL=  1*2 
L I L = LLT (LL  > 

LlU=L'iT  :ll> 

CALL  GRID1V <3.XB»XT*-RG*0. *RG *RG ♦ -0 *-0 * 0 * 0 * 1 ♦ 1 ) 
CALL  PR  INTV (48*TITL*320»101A) 

I*-  (LL.GT.l)  GO  TO  b 

CALL  PRINTV <-lb* 16HF0RWARD  STATIONS* AA5*9) 

GO  TO  7 

6 CALL  PRINTV (-12.12HAFT  STAT I ONS ♦ Ab5 « 9 ) 

7 Do  10  K = L TL*LTU 

I'  (HEAM(K) .LT.0. > GO  TO  10 
II-  NM(K)  .GE.0)  GO  TO  11 
H6M=0.5*bEAM (K ) 

SUR= AREA (K ) 

TAR=DRFT (K) /HHM 
B=3.<M1  '7^R ) 

C=  1 . ♦ TAR"  ( 10.-10. 18591b*SUR*TAR) 

At-  LA  = 0 (8-SQRT  (C)  ) 

A\=2.* (AFLA-TAR) -1 • 

BZ=2.«  ( 1 .♦TAR-AFLA) 

AY  = 2.<MFLA-TAR-2. 

rir=HZ 

A«G=0 • 

XL ( 1 ) =0. 

YL  < 1 > =-DRFT  <K) 

DO  12  J=2  *20 
AwG=ARG»0. 07853981 7 
St  1 =S I N ( ARG ) 

Ctl=-COS(ARO) 

St2=SEl*SEl 
Ct2=CEl *CE1 

XL  < J) = SE1*  <AX*BZ*SE2) *HHM 
YL ( J) =CEl* (AY*BY*CE2) *HRM 
IF (YL(J) .LT.0.0)  GO  TO  12 
YL ( J)=0.0 
12  CONTINUE 
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XL ( 2 1 ) sHHM 
YL (21 ) *0. 

IK (LL.EO.l ) GO  TO  3 
DU  2 J=i »21 

2 XL ( J ) =-XL ( J ) 

3 DU  13  J=l,20 

13  CALL  UUTLNV (NXV (XL ( J) ) .NYV(YL(J> ) »NXV(XL(J*1) ) ♦NYV(YL(J»1) ) ) 
CALL  APLOTV ( 2 1 *XL*YL»l,l,l»MRK2t IERR> 

Go  TO  10 
11  NUT=NM(K) 

IF  (NUT  »E(J«  0)  GO  TO  10 
NUN=NUT-1 
5 1 GN= 1 • 

IK  (LL.EO.2)  SIGN=-1. 

HRG=.5*RG 

DU  14  J= 1 » NUT 

XL ( J) =SIGN*X (K, J) ♦HRG 

14  YL ( J ) = Y ( K » J ) 

DU  15  J= 1 » NUN 

15  CALL  LINEV (NXV (XL ( J)) .NYV (YL ( J) ) »NXV (XL ( J*1 ) ) ,NYV (YL ( J*1 ) ) ) 
CALL  APLUTV (NUT«XL»YL» 1 » 1 *l*MRKl ♦ I ERR) 

10  CONTINUE 
5 CONTINUE 
777  CALL  FRAME V i 3 ) 

CALL  PLTNO  (0) 

77  CONTINUE 

CALL  AETSKC (5LMUT35) 

EmD 
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OVERLAY (5.0) 
PROGRAM  PGM5 


COMMON/HP  1 / 
CUMMON/HP2/ 

( 

COMMON/HP  3/ 

( 

CUMM0N/HP4/ 

( 

COHM0N/HP5/ 

COMM0N/HP6/ 

COMM0N/HP7/ 

COMM0N/HP8/ 

CUHM0N/HP9/ 

common/hpio/ 

CUMMON/hP 11/ 
CUMMON/HP  12/ 
COMMON/HP 1 3/ 
CUMMON/HP  14/ 
COMf' 3M/Hf  15/ 

( 

CUMMGiJ/H,Ji6/ 

CUMMON/HH 17/ 

C OMMON/hP 18/ 
CUMMON/H 1 ! 9/ 

( 

CUMMON/HP20/ 
COMPLEX  il.EF 


NPAG*  T 1 TLE  <8 ) .PATT < / > .RATIO 

II).  IG.  IP.  I NO,  ISO,  I ST  ART.  JA,  JB.  JC.K .LP.MAXD.MONO.MS. 
NIX.NLOOP.NSD.NSO.NSTR.NUX 

NOS  »NM ( 30 ) .BEAM (30) .DRFT< 30) .ARE A (30) ,MPS(30) , 

A VBM ( 30 ) ,ST(30) .IN (30) .SOAR (30) , X ( 30 , 20 ) . Y ( 30 , 20  ) 
NUT .NON, NOE . X5 (20 ) . YS (20 ) , XX ( 1 9 ) , Y Y ( 1 9 ) .DEL (19) . 

SNE (19) ,CSE (19) 

VOL.XlP.OST.PST  »BAM , URT , A I R , AMP  1 , AMP2 , OS ( 30 ) . SS ( 30  ) 
NOW, NOL.NSP.NST .WINK (5) .SHLT (6) , SPEED (6) . ST AT (20) 
NFN.NFNS.FN (6) ,FNS(6) 

NBTA,NBTAS.NBTAT,NHTAQ,WANG(ft> .COSHET (3) .SINBET (3) 
NFR.NFPS. OMEN ( 30 ) .OMENS (30) , OM I N , OMA X , OUME .UWAX 
XZFO.XZVL.XZHB.XZPR.KV.KW 
CHROA.THKA.SPNA.FAL.XZF a.clf a.depa.fay 
CHRDB.ThKB.  SPNR  .FRL.XZF  B.CLFH.OEPH.FHY 
GRAV.OEPCAT.SD(b) , RHMST (10) 

EL .GCB.GYR.RGY . VCG.BRCL  »RF  33.RP35.PMS5 

A33 ( 30 ) « A35 (A.30) ,AS3(4,30) ,A55(4.30) .C35S.C55S, 

833(4,30,3) ,R35 (4,30,3) ,HS3 (4,30.3) ,B55 (4,30.3) 

AHP ( 30 ) « DhP (4,30) , AP ( 30 ) .UP (4,30) 

OMEGA, UN, PAH (19) ,PVH(19) 

BLOG (19, 19) « YLOG ( 1 9 » 1 9 ) 

KASE  (4)  .MIL  (4)  , CWR 1 (4)  « CWR2  ( 4 ) , vkF  R ( 4 , 30  » 3 ) » 

WN (4 , 30 , 3 ) » SWR (4.30.3) »RWS(4,30,3) 

(I ,EFH(4,30,3) , EMP (4,30.3) «EMK (4,30.3) 
h.EMP 


END  UF  COMMO".  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS ) 


COMMON /ENOCUM/ENOCOM 

c 

DIMENSION  SWH (5 ) 

EQUIVALENCE  (SWH, WINK) 

DIMENSION  WUPT (2) .ST A (23) .OMENC (SI ) .UWAVE (SI ) .WAVEN (SI ) .ELOLA (51 ) . 
10MEN2 (51 ) .HEAVE (51) .PITCH (SI)  .SSPEC(Sl) .DELTA (SI) .EPSlL(Sl)  ,HEAV2( 
251  ) .PITC2  (SI  ) ,ARMO (51 ) .HSPEC (51 ) .PSPtC  <51 > .ADSP (51 ) . AVSP (SI ) , ACSP ( 
351 ) » RDSP (51 ) , RVSP (51  ) ,PASP (51 ) .UWAK (5) ,OMAK (5) .ORES (S)  .ORESV (5)  . 
40*ESA<5)  ,F I TCH (5 1 ) 

DIMENSION  SPROR ( 23 ) » SNUM(23).  RVELS(23),  RMOTS(23) 

DIMENSION  AHMOL (51 ,20) , RDSPL(51»20) 

DATA  WORT  /6H  AHS.  ,6H  PEL.  / 

1  FORMAT (6X.2SH0UTPUT  FOR  IRREGULAR  SEAS) 

2 FuRMAT ( 1H0.5X.20HWAVE  HEIGHTS  IN  FEET /6X , 1 4HS I GNI F I CANT  = F6.2.5X. 
1 1 '(HAVER AGE  = F6.2.SX.25H1/10TH  HIGHEST  AVERAGE  = F6.2//6X,  12HSEA  S 
2T ATE  = I 1//6X.23HWAVE  PERIODS  IN  SECONUS/bX , 23HS IGN IF  I C ANT  RANGE  F 
3RUM  F6.2.4H  TO  F 6.2 ,5X , 22HPER . OF  MAX.  ENERGY  = Fb . 2 ,5X , 1 OHA VER AGE 
4 = F6.2//6X.22HAVERAGE  WAVE  LENGTH  = F7.2.SH  FEET//6X .99HTHE  WAVE 
SHtlGHTS.  AVERAGE  WAVE  LENGTH  AND  PERIODS  ARE  COMPUTED  FROM  Tht  PIE 
bRSUN-MOSKOWl TZ  SPECTRUM.) 

3 FURMAT (6X.26HSIGNIFICANT  WAVE  HEIGHT  = Fb.2, 4H  F T . , 5 X , 1 4HSH 1 P LENG 
1TH  = F7.2.4H  FT..5X.1 3HSH I P SPEED  = FS.2.6H  KNOTS ,SX , 1 3HFROUUE  NO. 
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2 = F5.3) 

4 FORMAT  ( lHO.HXt  10HENC.  FREQ  . » BX  , 1 OHWA  VE  FREQ.  , 1 OX  . 8HL/LAMBDA  .6X  . 1 2H 
1 SEA  SPECTRUM, 4X. 14HHEAVE  SPECTRUM ,4X . 1 4HP I TCH  SPECTRUM/l 1 X .8HPEP  S 
2EC • • 1 0 X » 8HPER  SEC. .22X, 14HIN  SEC . *F T . **2 ,4X . 14M I N SEC . *F T . **2 »4X , 1 
34HIN  SEC • #F  T ••*2 ) 

5 FORMAT ( 1H1 , 14A6. 18X.A6, I4/> 

6 FORMAT ( 1X,6F18.6> 

7 FORMAT ( IhO.BX, 15HPITCH  RESPONSES) 

8 FORMAT ( 16X, 32HD1 SPLACEMENT  IN  FEET  AND  DEGREES . 2X , 34HVEL0C I T Y IN  F 
IT.  AND  OEGS.  PER  SEC . . 3X . 33MACC . IN  FT.  AND  DEGS.  PER  SEC.**2> 

.9  FORMAT ( 18X. 30M  AVERAGE  SlGNIF.  1/10TH  H.A.,6X,30M  AVERAGE  SIGN 
1IF.  I/10TH  H.A. .6X.30H  AVERAGE  SlGNIF.  1/10TH  M.A.) 

10  FORMAT (3X.13HAS  BOM  MOTION. 2X, 3 (3F 10.3. 6X) ) 

11  FORMAT ( 1M0.5X.48HABSOLUTE  AND  RELATIVE  VERTICAL  MOTION  ALONG  SHIP) 
1?  FORMAT (20X.29HVERTICAL  DISPLACEMENT  IN  FEET . 14X .22HVERT . VEL.  IN  F 
1T./SEC. .9X.27MVERT.  ACC.  IN  FT. /SEC. /SEC. ) 

13  FORMAT (6X.6H  STAT.»6X»30H  AVERAGE  SlGNIF.  1/10TH  h.A.,6X,30h  AVE 
1RAGE  SlGNIF.  1/10TH  M.A..6X.30H  AVERAGE  SlGNIF.  1/10TH  H.A.) 

14  FORMAT (6X.F6.2. A6. 3 (3F 10.3. 6X) ) 

16  FORMAT (3X, 13HANGULAR  PIT CH»2X»3(3F 10.3. 6X) ) 

17  FORMAT ( 1H0.5X.47HSTATISTICAL  DESCRIPTION  OF  FULLY  DEVELOPED  SEAS) 

18  FORMAT ( 18X.28HINSUFFICIENT  FREQUENCY  RANGE) 

19  FURMAT (6X.F6.2.A6.6X, 28H INSUFF IC lENT  FREQUENCY  RANGE) 

S67  FORMAT (6X.*MAVE  HEADING  ANGLE  ■ *.F7.2»«  DEG.  *> 

NFPsNFR.1 

IF (GRAV.GT.32.)  GO  TO  21 
MRITE (6.20) 

20  FORMAT ( 10X.*PGM5  REQUIRES  THAT  FEET  BE  USED  FOR  LENGTH  UNITS.*) 
CALL  AETSKC (5LMOT35) 

21  CONST*. 0081*GRAV*GRAV 
FRAD=57. 295779 
FARD=0. 017453293 

If  (NST.GT.O)  GO  TO  51 
NST  = 0 

51  N T S=NST  *3 

SI  A ( 1 ) =20.0*PST 
STA(2)=0.0 

IF (NST.EQ.O)  GO  TO  52 
DO  50  K = 1 »NST 
50  STA (K*2) =STAT ( K ) 

52  ST  A (NTS) *20 .0 
OMENC ( 1 ) =0 • 0 
UMAVE ( 1 ) =0.0 
MAVEN( 1 )=0.0 
ELOLA ( 1 ) =0 • 0 
OMEN2 ( 1 ) =0 • 0 
HtAVE(l)=1.0 
PI TCH ( 1 ) =0. 0 
SSPEC(1)=0.0 
DtLTA ( 1 ) =0.0 
EPSIL(I)=-1. 5707963 
HtAV2(I)=i.0 
P1TC2 ( 1 ) =0.0 

AriMO ( 1 ) =0 . 0 


/I 


H5PEC  ( 1 ) =0.0 
PsPEC ( 1 ) =0.0 
AOSP ( 1 ) =0 • 0 
AVSP ( 1 ) =0.0 
ALSP  < 1 ) =0 . 0 
riTCHdjso.o 
ROSP ( 1 ) =0  • 0 
RVSP ( 1 ) =0.0 
RASH ( 1 ) =0.0 
00  250  MMsl.NHTA 
COSH=C0SHET (MM) 

It-  (COSB.GT.O.)  GO  TO  250 
DO  100  J= 1 « NOW 

CALL  SEAST ( SWH ( J ) .AWH.HWH.ISEA.PL.PU.PME.AVP.AWL) 

NPAU=NPAG* 1 

WRITE  (6.5)  (PATT ( I ) » 1= 1 .6) » (TITLt  <I).I=1,8>,PATT(7)  .IMPAG 
WHI TE (6, 1 ) 

WHlTE(6»17) 

WHITE  (8.2) SWH (J) .AWH.HWH, ISEA.PL.PU.PME.AVP.AWL 

00  200  L=1.NUL 

FACT  = SORT (GPAV/SHLT (L)  ) 

DO  110  N=2.NFP 
OMENC (N)=OMEN(N-l ) *FACT 
110  OMEN2 (N) =OMENC (N) *OMENC (N) 

J J=0 

DO  300  M= 1 ,NSP 
JJ=JJ*1 

SoG=l .6Hy«SPEEU (M) /GRAV 

Do  120  N=2.NFP 

0*AVE ( N > =FACT*WFR ( JJ.N-l ,MM) 

WAVEN(N)  = UWAVE (N) **2/GRAV 
ElULA (N) =SWR (JJ.N-l .MM) 

HC.AVE  ( N ) = R£AL  (EFH  (JJ.N-l  . MM  ) ) 

PITCH (N) =REAL (EMP( JJ.N-l . MM ) ) *2./SHLT (L) 

HtAV2 (N) =HEAVE (N) *HEAVE (N) 

PI TC2  <\) =P I TCh (N) *P  I TCH (N) 

DLLTA (N) =FAHD*AIMAG(EFH( JJ.N-l ,MM) ) 

EPSIL  (N)  =FARI)*A  I MAG  (EMP  (JJ.N-l  ,MM)  ) 

S^PEC (N) =CONST /UWAVE <N) **5*EXP (-33.56/ (SWH ( J) **2*0 WAVE <N) **4) ) 
H5PEC (N) =SSPEC (N) *HEAV2(N) 

P5PEC (N)=SSPEC (N)*PITC2(N) 

120  F1TCH(N)=0.25*SHLT (L) »*2*PSPEC ( N ) 

DtN=OWAVE (NFP) -UWAVE (NFR) 

NHAG=NPAG*1 

WHITE (6.5)  (PATT ( I ) . 1=1 .6) . (TITLE <I),I=1,8).PATT(7).NPAG 
WHITE (6. 1 ) 

WHITE (6.567)  WANG ( MM ) 

W*ITE(6.3)SWH(J> ,SHLT(L) .SPEED (M) ,FN(JJ) 

WH I TE (6.4) 

WHITE (6,6) (OMENC(N) ,OWAVE(N) .ELOLA ( N ) ,SSPEC(N) .HSPEC(N) .FITCH(N) ,N 
1*1 .NFP) 

NHAo=NPAGd 
WHI TE (6. 1 ) 

WH  1 TE  ( 6 » 3 ) SWH ( J ) ,SHLT (L) .SPEED (M) ,FN(JJ) 
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WRITE<6.7) 

WRITE (6*0) 

WRITE (6,9) 

DU  130  N=2,NFP 
AVSP(N)=OMEN2(N) •FITCH(N) 

130  ACSP(N)=OMEN2(N)*AVSP(N) 

SLOPE= (FITCH (NFP) -FI TCM(NFR) )/DEN 
IF (FITCH (NFP) .LT.XMAX (NFP, FITCH) ) GOT  U 1 33 
134  WR I TE  < 6 » 1 8 ) 

GU  TO  131 

133  IF (SLOPE. LT.O.O)GOT0132 
SLUPE=AMIN1 (-SLOPE. -1.0) 

132  AMUTl=SIMPUN(OWAVE. FITCH, NFP) 

AMOT2=-0.5*FITCH(NFP)*FITCH(NFP)/SLOPE 
IF ( AMOT2 ,GT .0.2*AMOT1) GOTO  1 34 
AMUT=AMOT 1 ♦ AMOT2 
A HUT  = SQRT (AHOT) 

AMTA=1 ,2533*AM0T 
AMTS=2.0025*AMOT 
A MT 0=2 .5456* AMO T 
OwAK  ( 1 ) =OWAVE (NFP) 

UMAK ( 1 ) =0MEN2 (NFP) 

ORES(l)=FITCH(NFP) 

URESV ( 1 ) = A VSP (NFP) 

ORES  A ( 1 ) =ACSP (NFP) 

OwD=-0.25*ORES ( 1 ) /SLOPE 

DU  400  J I =2 , 5 

OwA* <JI)=OWAK(Jl-ll ♦OWO 

UHAK ( JI ) =OWAK ( JI ) * ( 1 .0*SOG*OWAK ( Jl ) ) 

(JMAiS  ( JI  )=OMAK  ( JI  ) *OMAK  < JI > 

OPES ( JI ) =ORES ( J I - 1 ) ♦SLOPE*OWD 
ORESV ( JI )=OMAK ( JI )*ORES( JI ) 

400  ORES  A (JI ) = OM  AK ( JI ) *ORES V (JI ) 

ORESV ( 5 ) =0 . 0 
ORESA (5) =0.0 

AVtL=SIMPUN (OWAVE, AVSP.NFP) ♦ SI MPUN ( OWAK , URESV . 5 ) 
AVEL=SQRT < AVEL) 

A VLA  =1.2533*AVEL 

AVLS=2.0025*AVEL 

AVL0=2.5456*AVEL 

AACC=SIMPUN (OWAVE, ACSP.NFP) ♦SlMPUN(UwAK.uRtSA.S) 
AACC=SQRT ( A ACC ) 

AACA=1.2533*AACC 
AACS=2.0025*AACC 
AACO=2 .5456*  A ACC 

WRITE (6,10) AMT  A. AMTS , AMTO ♦ AVL A , A VLS » A VLO , A AC A . A ACS . AACO 

AMUT=2.0*FRAD/SHLT <L>  *AMOT 

AVEL=2.0*FRAD/SHLT <L)*AVEL 

AACC=2.0*FRAD/SHLT ( L ) *A ACC 

AMTA=1.2S33*AMOT 

AMTS=2.0025*AMOT 

AMT 0=2. 5456* AMO T 

A VLA  =1.2533*AVEL 

AVLS=2.0025*AVEL 
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AVL0*2.SA56*AVEL 
AACA=1 ,2533*AACC 
AACS=2.0025*AACC 
AAC0=2  » 5456* A ACC 

WWITE(6»16)AMTA»AMTS*AMT0»AVLA»AVLS«AVL0*AACA»AACS»AAC0 
131  WW1TE<6.11) 

WRITE (6*12) 

WRITE (6.13) 

DU  ISO  K= 1 « NTS 

ARM=SHLT  (L)  * (PST-0.05*STA  (K)  ) 

CtNT  = SHLT  <L  ) # < 0 . 5 - 0.05»STA(K)> 

DU  160  N=2»NFP 

AHMU (N) =hEAV2(N) ♦ARM*«2*PITC2 (N) -2. 0*ARM*P I TCH ( N) *HEAVE (N) *CUS(DEL 
1 T A (N) -EPSIL (N) ) 

AdMOL (N»K)  = SORT (ABMO(N) ) 

AUSP ( N ) =SSPEC (N) *AHMO (N) 

AVSP (N) =UMEN2 (N) *AUSP (N) 

ACSP ( N ) =UMEN2 (N> *AVSP(N) 

T I ER=WAVEN  (N)  *CENT*COSB 

R JSP ( N > =SSPEC (N> * ( ABMO(N) ♦ 1 . -2. *HEA VE  < N ) *COS ( T TER-DEL T A < N ) ) 

X ♦2.*A'-?M*PITCH(N)  *COS(TTER-EPSIL  (N)  ) ) 

RUSPL(N.K)  = SORT (RDSP (N) /SSPEC (N) ) 

RVSP ( N ) =UMEN2 (N) *RDSP (N) 

160  RASP  t N ) =<JMFN2  < N ) *RVSP  (N) 

SLUPE= ( AUSP (NFP) -AUSP (NFR) ) /DEN 
IF (ADSP(NFP) .LT.XMAX (NFP.ADSP) )GUT01b3 
164  WRlTE(6«lR)STA(K) « WORT ( 1 ) 

GU  TO  161 

163  IF  (SLOPE.  LT.O.O)GOT0162 
SLUPE  = AMIM  ( -SLOPE  «-l  .0) 

162  A'lOT  1=SIMPuN  <OWAVE*ADSP«NFP) 

A-tOT2  = -O.S*ADSP  (NFP)  *ADSP(NFP)  /SLOPE 
If  (AMOT2.GT.0.2*AMOT1 )G0T016A 
A'-IUTsAMOT  1 ♦ AMOT2 
AMUT=SGHT (AMOT) 

A^TA=1 ,2533*AMOT 
A*TS=2.0025*AMOT 
AMT0=2.SAS6“AM0T 
U«*AK  ( 1 ) =OWAVE  (NFP) 

OIAK ( 1 ) =OMEN2 (NFP) 

OKtS(l)=ADSP(NFP) 

OwESVIl ) =A VSP ( NFP ) 

ORESA ( 1 ) = ACSP ( NFP ) 

OwD=-0.25*ORES  ( 1 ) /SLOPE 

Du  S00  J I =2 » 5 

O'*  AK  ( J I ) =OWAK  < JI-1 > ♦OWD 

OMAr\  < JI  )=OWAM  JI  > * ( 1 .0*SOG»OWAK ( JI ) ) 

0*AK  < JI ) =OMAK ( JI ) *OMAK ( JI ) 

OWES ( JI ) =ORES ( J I - 1 ) *SLOPE#OWO 
OwESV ( JI ) =UMAK ( JI ) *ORES ( J I ) 

S00  ORES A ( JI ) =OMAK ( JI ) *ORESV< JI ) 

UWESV (5 ) =0 . 0 
OwtSA (5) =0.0 

AVEL  = SIMPIJN  (UWAVE  . AVSP»NFP)  *S  IMPUN  ( OW  AK  « ORESV  . S ) 
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AVEL*SORT (AVEL) 

AVLA=1.2533*AVEL 

AVLS=2.0025*AVEL 

AVL0=2.5456*AvEL 

AACC=SlMPUN(OWAVE,ACSP.NFP) ♦ S I MPUN ( OWAK , ORES A , 5 ) 

A ACC=SURT ( A ACC ) 

AACA=1 ,2533*AACC 
AACS=2.0025*AACC 
AAC0=2.5456*AACC 

WRITE (6, 14) STA(K)  . WORT ( 1 ) , AMT  A , AMTS ♦ AMTO . A VL A , A VLS . A VLO . A AC A , AACS  . 
1 AACO 

161  SLUPE=(RDSP(NFP)-RDSP(NFR) )/DEN 

If  (RUSP (NFP)  .LT.XMAX  (NFP.RDSP)  > GOTO  1 73 
174  WRITE!6,19)STA(K) ,WORT<2) 

GO  TO  ISO 

173  If  (SLOPE. LT.0.0)G0TO172 
SLOPE=AMiNl (-SLOPE .-1 .0) 

172  RMOT  1 = S I MPUN  (OWAVE.ROSP.NFP) 

RMUT2=-0.5*RDSP (NFP) «RDSP (NFP) /SLOPE 
If (RMOT2.GT.O,3*RMOT1)GOTQ174 
RMOT=RMOT 1 +RMOT2 
R MOT  = SQRT  (RMOT  ) 

RMTA=1  ,2533*RMOT 
RMTS=2.002S*PMOT 
RMT0=2.5456*RM0T 
OWAK ( 1 ) =OWAVE (NFP) 

OMAP ( 1 ) =OMEN2 (NFP) 

ORES ( 1 ) = RQSP (NFP) 

ORESV ( I ) =RVSP (NFP) 

ORES A i 1 ) =RASP (NFP) 

OWL)=-0.25*ORES  ( 1 ) /SLOPE 

Do  600  Jl=2»5 

Ow AK ( J I ) =OwA  ; ( JI -1 ) tOWD 

0 1AK  ( JI)  = OW  AK  ( J I ) * ( 1 .0*SOG*OWAK  ( JI  ) ) 

OMAK ( J I ) = OMAK ( JI ) *OMAK ( JI ) 

ORES ( JI ) =ORES  < JI-1 ) ♦ SLOPE*OWU 
ORESV (JI ) = UMAK  < JI ) *ORES( JI ) 

600  ORESA ( JI ) =OMAK ( JI ) *ORESV ( JI ) 

ORESV (5) =0.0 
ORESA(S)=0.0 

P VEL  = S I MPuN  ((J  WAVE. RVSP.  NFP)  »SI MPUN ( Ow AK , URES V . 5 > 

RVEL=SORT (RVEL) 

RVLA=1 ,2S33*RVEL 
RVLS=2.0025*RVEL 
RVL0=2.5456*RVEL 

RACC=SIMPUN (OWAVE. RASP. NFP) +S I MPUN ( Ow AK , ORES A , 6 ) 

RACC=SORT (RACC) 

RACA=1 .2S3J*RACC 
RACS=2.0025*RACC 
R<aC0=2.SAS6*PACC 

WR  I TE (6. 14) STA (K) .WORT < 2 ) » RM T A , RMT S . RM TO , R VL A , R VLS . R VLO . R AC A . R ACS 
1 * RACO 

C CALCULATION  OF  SLAM  IMPACT  FREUUENCY 

140  WEN  = 3600.  / 6.2831853  * RVEL  / RMO 1 
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SRROB(K)  a EXP(-BRCL**2  / (2.<*RMOT**2)  ) 

SNUM(K)  a KEN  • SPROB(K) 

PVELS(K)  a 2.  * RVEL**2 
RHOTS(K)  a 2.  • RMOT  *•? 

150  CONTINUE 

WRITE (6*308) 

DU  350  Kal.NTS 

350  WR I TE ( 6 ♦ 389 ) STA(K),BRCL«  SPROB(K),  SNUM(K),  R VELS ( K ) . RMOTS ( K ) 

388  FORMAT  (1H0  //  15X*  51 HCROSS  DECK  SIR.  PROBABILITY  UF  EXP. NO. 

10F  SLAMS.  9X,  0HRELAT I VE  * 12X,  BHRELATIVE  / 6X.  58HST  AT  ION  CLE 
2ARANCE  SLAM  OCCURRENCE  IN  ONE  HOUR*  11X,  8HVELOCITY,  10X 

3. 1 2HD I SPL A CEMENT /75X.8HVARIANCE . 1 OX  ,BHV Ar I ANCE// ) 

389  FORMAT  (F12.2*  F13.3*  4E20.7) 

390  FORMAT ( lhl ,20X,2HwE,6X,7HABS  MOT  * 3X . 7HREL  MOT) 

391  FORMAT ( 8H  ST AT  I UN ,F 7 . 2 * / ( 1 9X . 3F 1 0 . 2 ) ) 

IF  (J.GT.l)  GO  TO  300 

DO  395  K = 1 .NTS 
WRITE (6,390) 

WRI TE (6,391 ) STA(K)  , ( OMENC ( L M ) , AbMOL ( LM , K ) ,RUSPL(LM,K)  ,LM  = 2.NFP) 
395  CONTINUE 
300  CONTINUE 
200  CUNTINUE 
100  CUNTINUE 
250  CUNTINUE 

CALL  AETSKC (5LMOT35) 

END 
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SUBROUTINE  SEAST ( S*H , A WH tHWH « I S , TL * TU» TM * T A « MA ) 

If  (SWH.GT.O. 15)  GO  TU  1 

15=0 

GJ  TO  10 

1 IE (SWH.GT.1.2)  GO  TO  2 
Ib=l 

GJ  TO  10 

2 If  (SWH.GT.3.0)  GO  TO  3 
15  = 2 

GJ  TO  10 

3 If  (SWH.GT.5.0)  GO  TO  A 
15=3 

GJ  TO  10 

*♦  If  (SWH.GT.7.5)  GO  TO  5 

IS  = <4 

GJ  TO  10 

5 I- (S^H.GT.12.0)  GO  TO  6 

I 5=5 

GJ  TO  10 

6 If  (SrfH.GT.20.0)  GO  TO  7 

15=6 

GJ  TO  10 

7 If  (S*H.GT.40.0)  GO  TO  8 

1 5s  7 

GJ  TO  10 

6 If  (SWH.GT.60.0)  GO  TO  9 

15  = 5 

GJ  TO  10 

9 1 5=9 

10  Q«H=SJRT <S#H) 

A*H  = 0.b2585<»SwH 
H 1 .27 1 1 9*S#H 
TL=1 . 09057 1 2*QWH 
TJ=3.^343965*QWH 
T^=l ,9608164*QWM 
T -1  = 2. 7602723#QWH 
W*=13.135862*SWH 

RETURN  / 

E >-0 
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nooonono  nnnoonnn 


0 VERL  A y (t-,0) 

PROGRAM  HGM1A 

FOLLOWING  SEA  DISPATCH  TASK 

REENTEREO  FUR  EACH  OF  3 CASES  <KASE=1.2,3> 

THIS  TASK  SAVES  ALL  THE  DATA  ACCUMULATED  SO  FAR, 

4NO  REINITIALIZES  HEFORE  EACH  CASE  (DATA  IS  SAVED  ON  TAPEaH) 


CUMMON/HP 1 / NR AG, TI TLE (8) ,PATT<7), RATIO 

CUMM0N/HR2/  ID, IG» IP.IND* ISO, ISTART. JA, JR, JC,K,I  R.maxD.MONO.MS, 
X NIX,NLOOP,NSD«NSO,NSTR,NUX 

CUMMON/hR  3/  NOS.NM (30 ) .BEAM (30) * DRF I v30  ) , AREA (30 ) , . ( 30 ) , 
x AVRM (30) ,ST (30) ,IN(J0) .SOAR ( 30 ) , X ( 30 , 20 ) . T ( 30 , ?0 ) 

CUMMON/HM4/  NUT .NUN. NOE . XS <20 ) . YS (20 j ,Xx < 19) , YY ( 19) .DEL < 19 > , 

X SNE ( 1 V) ,CSE (19) 

CJMM0N/HP5/  VOL.XlR.DST ,PS1 * BAM , DPT  * A 1 9 , AMP  1 . AMP2 , DS ( 30 1 - SS (30 ) 
CJHMON/MRf,/  NOW.NOL.NSP.NST.WINM5)  »SHLT<G>  ,SREEU<6)  .'  TAT(20) 

C JMMON/HR 7 / NFN.NFNS.FN (6) ,FNS(G) 

CUMMTN/HRR/  NBTA.NBTAS.NBTAT.NBTAu.WAnG  ( R ) .COSBET(3)  .SihPET  f J> 
C^mmON/hRR/  NFR.NFRS.UMEN  (30)  .OMENS  t 30 ) ,OM IN, UMA X , DOME , t « > 
CUMmuN/hRIO/  XZFU.XZVL.XZHB.XZPB.KV.KW 
CoMMON/hR 1 1/  CHRDA . THKA.SPNA.FAL.XZF A.CLFA.DEPA.FAY 
CJMM0N/HR12/  CHRDR.THKB.SPNR.FBL. XZFB.CLFH.OEPb.FBY 
CUMMON/HP 1 3/  GRAV,UEPCAT,S0(6; .RBMST ( 10) 

CuMMON/HPl'-  ' FL.GCB.GYR.RGY.VCG.BRCL.RF  (3.RP3S.RMSS 
CUMMUN/hh  1 B/  A J j ( 3 0 ) , A3S (A,  30)  . Ab3 (A.  30)  , ASS  (A,  30)  .CJbS.rcss, 

X R33  ( A » 30  » 3 ) « B35  ( A » 30  » 3 ) » Hb3  ( A » 30 , 3 ) , B5b  ( ■,  • 3U  , 3 > 

CUMMON/HR 1 6/  AHP ( 30 ) ,OHP(A,30) , AR ( 30 ) , UP ( a , 30 ) 

CUMMON/HP  17/  OMEGA,  UN,  PAH  ( 19) ,PVH  < ) 9) 

CUMMON/HR 18/  HLUG (19,19) ,YL0G(19.19) 

CUMMON/HP 19/  KASE (A) .MIL (A) .CWRl (A) ,CwR2 (A ) , WFP ( A.30 . 3 - . 

X wN ( A « 30  « 3 ) , SWR ( A , 30 , 3 ) ,RWS(A,30,3) 

CUMMON/HP20/  1 1 ,EFH (A, 30,3) ,EMP (A, 30 .3) , EMK (A, 30, 3) 
complex  ii.efh.emp 

END  UF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 

C JMMON/ENDCUM/ENDCOM 


BYPASS  IF  HEAD  SEA 

If  ( JA.JE.2)  CALL  AETSKC  (Sl.P':Mlui 
If  (KASE ( 1) .GT.O)  GU  TO  ?1 
NHTAS=NH T AS* I 

[f  (wANG(NRTAS) .LT.90.)  GU.  TU  20 

JA=  I 
JHrl 

JC=1 

NHTA=N3I at-nbtao 
DU  22  MM=1.NHTA 
2d  R«NG(MM)=WANG(MM*NBTAO) 
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o o o o a r>  o oooo  o ooo  noo  ooo 


DO  18  I=1,NFRS 

18  OMENCI)*  OMENSd  ) 

nfr*nfrs 
00  19  I-l.NFNS 

19  FN(I)»FNS(I> 

MFN»NFNS 

CALL  AETSKC (5LRGM10) 

20  JA*2 
JR*3 
N9T  A = 1 

DO  17  I* 1 » N F NS 
17  F N ( 1 1 = FN  S ( 1 1 

nfn*nfns 

HANG ( 1 ) = NANGCNBTAS) 

21  MM* 1 

C0SB=C0S  <WANG(MM>*. 01745326252) 

COMPUTE  OATA  LENGTH  ANO  CONSTANTS 

N=LCCF (E  N0C0M) -LCCF (T ITLE ( 1 ) ) 

TWOP 1=6. 28318531 
MPAG=NPA G 

OISPATCH  BY  ENTERING  K A SE 

GO  TO  <100,200,300,77),  KASE(1>*1 
CASE  1 

100  CONTINUE 

IF (OMIN. LE. 0.  .OR.  CMAX.LE.O.)  GO  TO  77 
KASE  <1)=  1 


NP A G = NPA G *1 

5 FORMAT <1  hi, 14A6, 18X, A6,  14/) 

WRITE (6,  5)  (PATT(I)  ,1=1,6)  , (TITLE  (I)  ,1  = 1,8)  ,PATT  <7),NP6G 
WRITE  <6.  6)  WANG (MM) 

6 FORMAT (1  HO, 10X, *BETA  = • , F 1 0 . 1 / / 1 1 X , * OU A R TE RI NG  SEA  KASE^l 

X * H I &H  FREQUENCY  WAVES  FASTER  THAN  SHIP*) 


WRITE  OUT  INITIALIZATION  OF  OATA 
REWINO  4 8 

WRITE (48 ) (TITLE(I) ,1=1. N) 

CALCULATE  MINIMUM  FN  AT  INTERCEPT  OF 

MINIMUM  RWS*OElTA  LINE  AnD  CRITICAL  Cl)RVr 

RWS  BOUNOS  ARE  IN  RWSCl.N.l)  N=1,NB 
OELTAS  A»E  IN  RWS(2,N,  1) 

NB=RWS(3 ,1,1) 
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A=<RWS(1,1,1»*RWS(2,1,1) I /TWOPI 
FNMIN=SQRT(A)/(2.*CCSBI 

CALCULATE  MAXI MUM  FN  AT  INTERCEPT  OF 

MAXIMUM  RWS-DELTA  LINE  AND  OMIN  LINE 

A=(RWS<1,NB,1)-RWS (2, N8-l.il) /TWO PI 
SA*SQRT { A) 

FNMA  X = SA Ml ,-OM IN*S A I/C0S8 
WRITE  (6,71  FNM IN.FNMAX 

7 FORMAT (1  HO, 20X, *SPEED  RANGE  OF  INTEREST  FROM  FROUOE  NUMBER  *, 
1 F7.  4,*  TO  • ,F7.4// I 

REDEFINE  S PEED  ARRAY  TO  INCLUDE  JUST  ABOVE  RANGE 


I J=  0 

DO  111  J J = 1 , NFN 

IF (FN(JJ  ) .LT .FNMIN  .CR.  F N ( J J ) . GT , F NM A X I GO  TO  111 

I J* I J*1 

FN(IJ)=FN(JJ) 

111  CONTINUE 

IF  NO  DESIRED  SPEEDS  ARE  IN  RANGE,  GO  TO  NEXT  CASE 

IF ( I J . EQ .0)  GO  TO  200 
NFN=  I J 

LOOP  THRU  FN  VALUES  TO  FIND  APPLICABLE  OMEGA  PANGFS 
DO  121  J J=1 , NFN 

FINO  MINIMUM  CMEGA  AT  INTERCEPT  OF  MINIMUM  RWS 

USE  R N ( J J , 1 , 1 ) FOR  MINIMUM  OMEGA  FOR  FN(JJ) 
WN(JJ,2,1)  FOR  MAXIMUM  OMEGA 
WFR(JJ,1,1)  FOR  MINIMUM  RWS 
M FR ( J J , 2 , 1 1 F CR  MAXIMUM  RWS 

FNB=FN(J JI’DOSB 
A = RWS(1,  1 , 1 I /TWOPI 
S A = 1 . 0/S  QRT  (A) 

WN ( JJ,1,  1) =SA* ( 1 ,-FNB*S  A) 

IF(WN(JJ,1,1).LT.0MIM  WN(JJ, 1,11=  OMIN 
OME  G= (1 , ♦SQRT(1.-4.*FNB*WN(JJ,1,1) ) I /FN8* • 5 
WFB(JJ,1  ,1) = TWOPI/ (OMEG*OMEG) 

FIND  MAXIMUM  OMEGA  AT  INTFRCEPT  OF 
MAXIMUM  RWS  OR  AT  CRITICAL  CURVE 

A-RW3U, NR, ll/TWOPI 
SA=1.0/SCRT(A) 

CR I T F N= . 5/ (SA’COSB) 


o r>  o non  o onooonoon  oon  o o o r> 


IF(FN(JJ).LT.CRITFN>  WN(JJ,2,1)*.25/FNB 
IF (FN(JJ ) .GE.CRITFNI  WN(JJ,2*1)sSA*(1.-FNB*SA) 

IF  ( WN ( JJ ,2, 1 ) .GT.OMAXI  WN ( JJ , 2, 1 > »OMAX 
OMEG  = (1. ♦SQRT(l.-4.*FNfl*WN(JJ,2,l> I >/FNB*.5 
WFR( JJ,2 , 1)  *TWOPI/(OMEG*OMEG> 

121  CONTINUE 
GO  TO  50  0 

CASE  2 

20  C CONTINUE 

NPAG=NPA  G*  1 

WRITE  (6,  5 ) ( P A T T ( I ) ,1  = 1,6)  , (TITLECl)  *1  = 1*3) , ° A TT ( ? ) , ,c 

WRITE  <6,  8)  WANG(MM) 

A FORMAT ( 1 HO  * 10X,*f?ET  A = *, F 1 0 . 1/ / 1 1 X , *QU ARTE  RING  S^t  < 
1 • LOW  FREQUENCY  WAVES  FASTER  THAN  SHIP*) 

read  back  initial  oata 
REWIND  48 

RE  AO  148)  (TITLE (I) » 1 = 1 * N) 

NPAG  = MPA  G*1 

NB=RWS(3  ,1,11 

KASE ( 11=  2 

CALCULATE  MINIMUM  FN  AS  FIRST  NON-ZERO  FN 

fnmin=o. 0000001 

calculate  maximum  fn  as  intercept  of 

MAXIMUM  RWS-OELTA  LINE  AND  CPITICAL  CURVE 

A=(RWS(1  , NB , 1 1 - R WS ( 2 » NB - 1 , 1 I J/TWOPI 
FNMAX=SQRT( A)/(2.*C0SB) 

WRITE  (6,7)  FNMIN.FNMAX 

REDEFINE  SPEEDS  ARRAY 


IJ=0 

DO  211  J J = 1 « NFN 

IF (FN( JJ ) .LT.FNMIN  .OR.  FN ( J J) . G T . FNM A X I GO  TO  211 

IJ=I J+l 

FN( IJ»=F  N(JJ) 

211  CONTINUE 

IF(IJ.EQ.O)  GO  TO  300 
NFN= I J 

find  APPLICABLE  OMEGA  RANGES 


R1 


ooooooo  ooo  ooooo  o n o r>  o o r>  onoo 


DO  221  JJ=1,NFN 


FIND  MINIMUM  OMEGA  (MAXIMUM  RWS)  AT  INTERCEPT  OF 
MAXIMUM  RMS  LINE  AND  FN 

FNB*FN(J J) *COSB 
A=RWS<1,  NB.D/TMOPI 
SA= 1 . 0/S  ORT  t A> 

HN( JJ,1, 1>=SA*(1.-FNB*SA) 

WFR ( JJ,2 , II *RMS( 1,N6,1» 

FINO  MAXIMUM  OMEGA  AS  INTERCEPT  OF  MINIMUM  =>WS 
OR  CRIT ICAL  OMEGA 

A=RWS  (1, 1,1 ) /TWOPI 
SA= 1 . G/S  QRT  (A) 

CRITFN  = . 5/ ( SA*C0SB) 

IF (FN(JJ ) .GT  .CRITFNI  WN  < J J, 2 , 1 ) = . 25/F N B 
IF(FN(JJ  > .LE.CRITFN)  HN(JJ,2,l)=SA*(l.-FNB*SA) 
IF(WN(JJ,2,1).GT.CMAX)  HN(JJ,2,1)=0MAX 

0MEG= (1.-SQRT(1.-4.*FN9*WN(JJ,2,1)II/FNG*.5 
WFR  < JJ,1  , 1 > = TWO PI/ (CMEG’OMEG) 

221  CONTINUE 
GO  TO  50  0 


K A SE  = 3 

30C  CONTINUF 

NP A G=  NPA G*1 

WRITE  (6, 5 ) (PATT(I)  , 1=1 , 6 1 , ( T IT LE ( 1 1 , I* 1 , 8 ) , P ATT ( 7 ) , NPA G 
WRI Tfc  (f , 9>  WANG (MM) 

9 FORM  AT (1 HG , 10X, *BET A = • , F 1 0 . 1/ /l 1 X , *QU ARTE R I NG  S'A  <ASE 

i * ship  faster  than  waves*) 

RE  AO  BACK  INITIAL  OATA 
REWIND  48 

RE  A 0 ( 48)  (TITLE ( I)  , 1 = 1, N) 

NPAG  = MPA  G+l 

NB=  R W S ( 3 ,1,1) 

KASE ( 1 ) = 3 


CALCULATE  MINIMUM  FN  AS  INTERCEPT  OF 

MINIMUM  RW  S*OE  L TAP  WS  ANO  MINIMUM  OMEGA 

A=(RWS(l,l,l)*RWSl2,i,l))/TWOPI 
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S«=SURT (A) 

FNMIN=SA<M  1 . ♦OM I N* S A ) /COSR 

CALCULATE  MAXIMUM  F N AS  INTERCEPT  UF 

MAXIMUM  RWS-DEL T ARMS  AND  MAXIMUM  OMEGA 

A= (RWS ( 1 • NH  « 1 ) -RWS  < 2 , NR- 1 , I ) ) /TWUPI 
SA=SORT (A) 

F mMAx  = SA* ( 1 . *OMAX*SA) /COSR 
W"<ITE  ( (S  • 7 ) FNMIN.FNMAX 
REDtF I NE  SPEEDS  ARRAY 


I J = 0 

OU  ill  J j= I « NFN 

If  <FN( JJ) .LT.FNMIN  .OR.  FN(  JJ)  .GI .FNMAX)  GO  TO  311 
I J= I J*  1 
F J(I  J)=FN(JJ) 

311  CONTINUE 

IF  40  DESIRED  SPEEDS*  GO  TO  NEXT  CASE 

If  ( I J.EO.O)  GO  TO  77 
Nt-  N=  I J 


FIND  APPLICABLE  OMEGA  RANGES  FOR  EACH  FN 
00  321  JJ=1.NFN 

CALCULATE  MINIMUM  OMEGA  AS  INTERCEPT 
OF  MAXIMUM  RWS 

F •4H=F  N ( JJ)  *COSH 
A = PwS ( 1 .NH.  1 ) /TwOP I 
S«=-l .O/SQRT (A) 

W >1  ( JJ.  1 , 1 ) =SA*  ( 1 . ♦FNH*SA) 

Ii-  < wN  ( JJ*  1 . 1 ) .LT  .OMIN)  WN  ( JJ.  1 . 1 ) =0MIN 
0 ->EG=  ( 1 . *SORT  ( 1 . *A.*FNH*WN  ( JJ,  1 . 1 ) ) ) /F  NH*.b 
WI-R(JJ,2.1)  =TWOPI/ (0MEG*0MEG) 

CALCULATE  MAXIMUM  OMEGA  AS  INTERCEPT 
uF  MINIMUM  PwS 

A=RwS (1.1,1) /TwOPI 
S«=-l .O/SOPT (A) 

V * ( JJ.2. 1 ) =SA« ( 1 . *FNB*SA ) 

IF  ( WN ( JJ.2, 1 ) .GT.OMAX)  WN ( JJ.2. 1 ) =OMAX 
OMtG=  ( 1 .*S(JWT  ( 1 . ♦4.*FNH<*WN<  JJ,?.  1 ) ) )/FNH».5 
Wl-  R ( JJ.  1 . 1 ) = TWOPI  / ( OMEG^OMEG  ) 


321  CONTINUE 


END  OF  FOLLOWING  SEA  RUN 
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CHOUSE  DELTA  OMEGA  AND  LOAD  OMEGA  ARRAY 
CONTINUE 


FOR  EACH  FN  FN(JJ)  JJ*1,NFN 

wN(JJtltl)  contains  minimum  omega 
WN(JJ,2,1)  contains  maximum  omega 
WFR(JJ,1,1)  CONTAINS  MINIMUM  RWS 
WFR(JJ,2.1>  contains  maximum  RWS 

for  each  bounoary  rws(1,n,1)  n=i.nb  nb*rws (3, i , l ) 

KWS(2*I.l)  CONTAINS  DELTA  RWS  EOR  RANGE 
RWS(l.I.MM)  TO  RWS ( 1 , I *1 *MM) 

RWS  IS  REAL  WAVE  LENGTH  DIVIDED  BY  LENGTH  OF  SHIR 

WRI TE (6* 10)  < F N ( I I ,WN(I,l«i)  , WN ( I » 2 » 1 ) « WFP  < I , 1 , 1 ) ,WFR (1,2,1). 

X 1=1, NFN) 

10  FORMAT ( 10X**AT  FR0UDE  NUMBER=*,F7.4,*  FREQUENCY  RANGE  IS  *, 

1 F7.R,*  TO  *,F7.A,«  AND  WAVE  LENGTH  RANGE  IS  *. 

2 E 7,4,*  TO  *,F7.4> 

RWS( 1 ,NB,1 ) =RWS( 1 ,NB,1 ) *1 ,0 

NB=NB-  1 

OH  I N= 1 00 . 0 

OHAX=0.0 

DOME= 100.0 

FIND  MINIMUM  UMEGA  MINIMUM 
MAXIMUM  OMEGA  MAXIMUM 

DO  511  J J= 1 , NFN 

I"  <WN(JJ,1,I) .LT.OMIN)  OMIN=WN ( JJ, 1 , 1 ) 

IF (wN( JJ,2,I ) .GT.OMAX)  OMAX=WN ( JJ,2, 1 ) 

511  CONTINUE 

LOAD  OMEGA  ARRAY  FROM  LOWEST  FREQUENCY 

CLIP  HIGHER  FREQUENCIES  IF  BEYOND  BOUNDS  (50  FREQUENCIES) 

DOMEMIN=OMIN/EL 
NE  R=  1 

OMEN ( 1 ) =UM I N 
DO  531  N=2 , 30 

FIND  MINIMUM  DELTA  OMEGA  AT  OMEGA  AND  ALL  SPEEDS 

DuME= 1 00 . 0 
DU  525  JJ=1 , NFN 

F 'iB=FN(JJ)  #COSR 

IE (OMEN(N-l ) .GE.WN ( JJ.2, 1 ) ) GO  TO  525 
IE (OMEN (N-l ) ,GE . WN ( JJ , 1 , 1 ) ) GO  TO  520 
DLL  T A = WN ( J J . 1 ,l)-OMEN(N-l) 
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IF <UELTA.LT. DOME)  OOME=OEL T A *0 . 0000 1 
GU  TO  525 
C 

520  CONTINUE 

C * 

FNB2=2.*FNB 

DtLTA=WN  i JJ»2» 1 ) -OMEN  < N— 1 ) 

IF (DELTA. LT. DOME)  OOME=DELTA 

C 

IF (KASE  < 1 ) .EQ. 1 ) OMEG« ( I . ♦SORT ( I .-4 . *FNB*OMEN (N-l ) ) ) /FNB2 
IF (KASE  < 1 ) .EQ.2 ) OMEG=(1.-SQRT(1.-A.*FNB*OMEN(N-1) ) ) /FNB2 
IF (KASE ( 1 ) .EQ.3)  OMEG» ( 1 .♦SORT ( 1 . ♦4.*FNB*0MEN (N-l) ) ) /FNB2 
R*SS=TMOPI/ (OMEG*OMEG) 

C 

DO  521  1=1, NB 

IF(RWSS.GT.RWS<1, 1*1.1) ) GO  TO  521 
C 

A=RMSS/TWOPI 
SA=SQRT (A) 

DA=RWS(2,I»l)/TWOPI 

DtL  T A = ABS ( <FNB/(A*A)-.5/(SA*SA*SA) )*UA) 

IF ( (OMEN (N-l )*1.5*0ELTA).GT.MN(JJ,2»1) ) 

1 DELTA=mN(JJ,2.1)-0MEN(N-1> 

GO  TO  522 
C 

521  CONTINUE 
C 

522  CONTINUE 

IF (DELTA. LT. DOME)  DOME=DELTA 

C 

525  CONTINUE 

IF (DOME.LT.DUMEMIN)  dome=domemin 
OMEN (N) =OMEN (N-l ) *DOME 
NFR=NFR*1 

c 

IF (OMEN(N) .LT. (OMAX-O. 00001) ) GO  TO  531 
OMEN (N) =OMAX 
GU  TO  532 
C 

531  CONTINUE 

532  CONTINUE 
C 

WM1TE  (6,11)  NFR,OMEN(l) ,OMEN(NFR) 

11  FURMAT ( 1 HO , 6X » *ANAL YS I S MILL  BE  BASED  ON  *,I2. 

1 * FREQUENCIES  FROM  *,F7.A,*  TO  *,F7.4> 


GO  tXECUTE  ANALYSIS 

CALL  AETSKC (5LPGM1B) 

77  CONTINUE 

KASE ( 1 ) =0  • 

I F ( MANG (NBTAS*1) .EQ.777.)  JC=3 

It-  (10. EQ.2  .OR.  ID.EQ.-1)  CALL  AETSKC  (5LMOT35) 

IF(LP.Eq.O  .AND.  IP.EO.O  .and.  NOM.EQ.O)  CALL  AE TSKC ( 5LMUT35 ) . 
IMLP.LE.O  .AND.  IP.LE.O)  CALL  AETSKC  (ALPGM5) 

END 
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PROGRAM  LISTING  OF  M0T2A6 
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PFECEDIIO  PAO£|BUNK-NOT  FIIHFD 


noon 


OVERLAY (UVFILE.0.0) 

PROGRAM  MAIN(lNPUT*5i2.0UTPUT*512,TAPE23=512,TAPE48*512, 

X TAPE5=INPUT.TAPE6«0UTPUT> 

C 

C. 

COMMON/SRY 1 / NPAG, TITLE (8) .PATT(B) .RATIO 

COMMON/SR Y2/  ID. IG» IP. IND.ISO. ISTarT . JA, JB, JC.K.LP.MAXD.MONO.MS. 

X NIX.NLOOP.NSD.NSO.NSTR.NUX 

COMM0N/SRY3/  NOS .NM ( 30 ) ,BEAM(30) .DRFT (30) . AREA ( 30 ) ,MPS(30) . 

X DMA  ( 30 ) , A VDA  ( 30 ) , AVBM  (30)  .ST  (30)  «IN(30)  * SOAR  ( 30  ) . 

X X (30.20) .Y (30.20) 

CUMM0N/SRY4/  NUT .NON .NOE . XS ( 20 ) . YS ( 20 ) , XX ( 1 9 ) , Y Y ( 1 9 ) .DEL ( 19) . 

X SNE (19) ,CSE (19) 

CUMM0N/SRY5/  VOL .XlP.DST.PST .RAM .OPT . A I R , AMP  1 , AMP2 , OS ( 30 ) ,SS(30) 
COMMON/SR Y6/  NOW.NOL.NSP.NST .WIN* (5) » SHLT (6) .SPEED (6)  .ST  AT (20) 
COMMON/SRY 7 / NFN.NFNS.FN  (6)  .FNS  ( t> ) 

COMMON/SR Y8/  NBTA.NBTAS.N8TAT.NBTAO.WANG (8) .COSSET (3) .SINBET(3) 
CoMMON/SR Y9/  NFR ,NFRS .OMEN ( 30 ) ,OMENS<30) . OMIN. UMAX, DOME »OWAx 
COMMON/SR YlO/XZHB,XZPB,XZFO,XZVL.NV,KW 
COMMON/SRY 1 1/CHRD A, THK A, SPNA.FAL.XZFA.CLFA.DEPA.F AY 
COMMON/SR Y12/CHRDB.THKB,SPNB,FBL.XZFB,CLFB,DEPB,FBY 
COMMON/SRY 13/GRAV,UEPCAT,S0 (6) .RMMST (10) , RBMHT (10) 

COMMON/SRY 14/EL. GCB.GYR.GYRT ,GM ,oMT ,GMT S , VCG , RF 33 , RP3S , RM5S 
COMMON/SR Yl 5/ A26 (4,30) ,A62(4,30) ,A46(4,30) ,A64(4,30) »A66<4,30> 
COMMON/SRY 16/A22(30) ,A44(30) ,A24(30) ,DSR(30) ,DRR(30) 

COMMON/SRY 17/ AS Y (30) ,DSY (4 , 30 ) , A r ( 30 ) » UY (4 , 30 ) .ARY (30) ,URY (30) 
COMMON/SRY 18/822 (4.30) ,B26<4,30) .862(4,30) ,B46(4,30) ,864(4,30) , 

X B66 (4,30) ,824(4,30) ,844(4,30,3) 

COMMON/SRY 1 9 /OMEGA  »UN , PAS ( 1 9 ) ,PVS(19) ,PAR(19) ,PVR(19) 

COMMON /SR Y20 /BLOG ( 19,19) ,YL0G(19. 19) 

COMMQN/SR  Y2 1 /K  ASE (4 ) ,M I L <4 ) , CWR 1 <4 ) ,CwR2(4) , WFR ( 4 , 30 » 3 ) . 

X WN (4,30,3) ,SWR (4,30.3) ,RWS (4,30,3) 

C0MM0N/SRY22/I I »EFS »EMR , EM Y , EKR ( 4 , 30 ♦ 3 ) ,EKY(4,30,3) 

CUMPLEX  1 1 ,EFS (4,30.3) ,EMR (4,30.3) ,EMY (4,30,3) 

END  UF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 

CUMMON/ENOCOM/ENDCOM 
C 

DATA  PATT/6H  M0T24.6H6  SW.6HAY,  R0.6HLL  AND « 6H  YAW  M.6H0TI0NS. 

X 6H  OF  ,6H  PAGE/ 

NBT  ASa0 
GU  TO  1001 
CALL  FLAGSV 
CALL  PLOTDD 
1001  CUNTINUE 
JC=0 

CALL  AETSKC (6LM0T246) 

END 

c ••**note***the  functions  xmin.  xmax.  simpun.  and  atan3  anu  the 

c ••••SUBROUTINES  NILS.  DAVID,  MATINS,  AND  SEAST  ARE  THE  SAME  FOR  BOTH 
C ••••MUT35  AND  MOT246.  THE  SUBROUTINE  QDF CN  AND  THE  PROGRAMS  PGM4  AND 
c ••••PGM  1 A ARE  THE  SAME  FOR  MOT35  AND  M0T246  EXCEPT  FOR  THE  COMMON 
C ••••BLUCKS  AND  THE  REFERENCES  TO  MOT 35. 

C ••••SUBSTITUTE  THE  COMMON  BLOCKS  SRY 1 -SR Y22  FOR  HP1-HP20. 

C ••••CHANGE  STATEMENTS  AT  THE  END  OF  PGM4  AND  PGM1 A FROM 
C ••••CALL  AETSKC (5L MOT 35)  TO  CALL  AETSKC (6LM0T246). 

C ••••THE  ABOVE  ROUTINES  WILL  NOT  BE  RtPEATEU  IN  THE  M0T246  LISTING. 

88 


noon  oooooonoonon 


OVERLAY  < 1 * 0 ) 

PROGRAM  M0T246 

OFFSETS  MUST  BE  READ  IN.  THE  X AXIS  IS  THE  TRANVERSE  BASE  LINE  OF 
STATION  10.  THE  Y AXIS  IS  THE  VERTICAL  CENTER  LINE  OF  STATIuN  10. 
Y IS  POSITIVE  UP  AND  X IS  POSITIVE  TO  THE  RIGHT. 

LOOKING  FORWARD  ON  THE  STARBOARD  HULL  AND  STARTINO  AT  THE  BOW  THF 
OFFSETS  ARE  READ  IN  COUNTER-CLOCK  WISE  A STATION  AT  A TIME. 

HULL  SEPARATION  DISTANCE  MUST  ALSO  Bt  GIVEN.  IT  IS  IDENTIFIED  AS 
SD(NSD)  WHERE  NSD  IS  THE  NUMBER  OF  HULL  SEPARATIONS  TO  BE  RIJN. 

THE  HULL  SEPARATION  IS  THE  DISTANCE  FROM  THE  CENTER  LINE  OF  THE 
CATAMARAN  TO  THE  CENTER  LINE  OF  STATION  10. 


COMMON/SRYl/  NPAG.TI TLE (8) .PATT(B), RATIO 

COMMON/SRY2/  ID, IG» IP, IND. ISO, ISTART . JA, JH, JC.K.LP.MAxO.MONO.MS. 
X NIX.NLOOP.NSD.NSO.NSTR.NUX 

COMM0N/SRY3/  NOS.NMOO)  .BEAM  (30)  . DRF  T (30)  .AREA  (30)  .MPS(30>  . 

X DMA (30) , A VDA ( 30 ) .AVBM( 30) . S T ( 30 ) . I N ( JO ) .SOAR (30) . 

X X (30.20) .Y(30. 20) 

COMMON/SR Y4/  NUT ,NON»NOE.XS(20) ,YS(20),XX(19),YY(19> »uEL<19> . 

X SNE ( 1 9) , CSE ( 1 9 ) 

COMMON/SR Y5/  VOL.XIP.DST.PST  «B AM , DRT . A I R , AMP  1 , AMP2.DS (30) ,SS (30) 
COMMON /SR Y6/  NOW.NOL.NSP.NST .WINK (S) . SHL  T (6) .SPEED (6) .ST  AT (20 ) 
CUMMON/SRY7/  NFN,NFNS.FN<6> .FNS(b) 

CUMM0N/SRY8/  NBTA,NBTAS.NBTAT,NBTAQ,wANG(8) .COSBET (3) .SlNBET (3) 
COMMON/SRYR/  NFR.NFRS.OMEN (30) .OMENS ( 30 ) ,()MIN, UMAX .DOME .OWAX 
COMMON/SRY10/XZHB.XZPR.X2FO. XZVL .KV.KW 
COMMON/SRYl 1/CHRD A. THKA.SPN A .FAL .XZF  A, CLF  A .DEPA.FAY 
CoMM0N/SRYl2/CHRDB.THKB.SPNH,FRL.XZFB,CLFB.0EPB,FBY 
CJMM0N/SRY13/GRAV.DEPCAT.SD (6) .RBMST (10)  . BBMHT (10) 

COMMON/SRYl A/EL.GCB.GYR.GYRT .GM.oMT ,OMTS. VCG » RF 33 , RP3S , RM5S 
COMMON/SR Y 1S/A26(4»30) ,A62<4,30) »A46<4,30) . A64 (4,30) , A66<4,30) 
COMMON/SRYl 6/ A22 (30) ,A44(30) » A2A (30) ,DSR(30) ,DRR(30) 

COMMON/SRY 17/ASY (30) ,DSY(4.30),Ar<30)»UY(4.30>.ARY(30).URY(jO) 
CoMMON/SRY 1H/B22 (4,30)  ,R26 (4.30) »B62 (4 , 30 ) .B46 (4 ,30 ) ,Bh4  <4 . 30 ) , 

X B66 (4,30) »B24 (4,30) »H44(4,30,J) 

CoMMON/SRY 19/OMEGA, UN, PAS (19),PVS(19) .PAR ( 19) , PVR ( 19) 

COMMON/SR Y 20 /BLOG (19,19) ,YLOG( 19, 19) 

COMMON/SR  Y 2 1 / K ASE  (4),MIL(4).CWRl(4)  ,L*R2 (4)  ,WFR(a.30.3). 

X WN (4 . 30  « 3 ) » SWR (4,30.3) ,RWS(4,30,3) 

CoMMON/SR Y22/ I I .EFS.EMR.EMY .EKR (4 , 30 , 3 ) .EK Y (4, 30  » 3) 

COMPLEX  1 1 ,EFS  (<*»30,3)  ,EMR(4,30. 3)  ,EMY  (4,30,3) 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 

common/endcum/endcom 

DIMENSION  YJK (20) ,YBG(30) 

1 F ORMAT ( 8A6 ) 

2 FORMA T (1215) 

3 FORMAT ( 8F 1 0 .5 ) 

4 FORMAT (4F9. 4, 219) 

5 F ORMAT ( 1H1 .15A6.18X.A6, 14/) 
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6 FORMAT  ( 1HO»5X,54HSTATION  10.0  NOT  GIVEN  - WEAn  INPUT  OAT  A F OH  NEXT 
1 SHIP) 

7 FUHMAT <4F10.5,2I5) 

H FURMAT ( 1HO«5X,23HCOMPUTEO  FROUOE  NUMBtRS) 

9 FUHMAT ( /*  DATA  INPUT  CARDS*/  1 OX , * 1 * »9X , *2* »9X , *3* * 9X , *4* , 9X , 

X *5* »9X,*6*,9X. *7 »»9X,*8*/1X,8( *1234567890*) ) 

40  FUHMAT (8F9. 4) 

51  FUHMAT ( IX, 8A6) 

52  FUHMAT ( 1 X , 12  1 5 ) 

53  FUHMAT ( 1X.8F10.5) 

54  FUHMAT ( IX, 4F9. 4, 219) 

57  FUHMAT ( 1 X ,4F 1 0 .5 , 2 1 5 > 

3000  F URMAT ( 1 2H 1 END  OF  JOB) 

335  FUHMAT ( 30X , 9HSTAT ION  ,F9.4) 

78  NPAG=0 

If  (JC.EQ.2  .AND.  N8TAS.GT.0)  CALL  AETSKC < 5LPGM 1 A ) 

ID  = 1 

Rt  AD ( 5 » 1 ) (TITLE(I) ,1  = 1,8) 

RtAD (5,2)  MONO , J A 
IF ( JA.LE.O)  GO  TO  77 
Rt AD ( 5 , 3 ) SCALE, GRAV 

RtAD (5,2)  NFH , NR  T A ,NFN ,NSD ,NSTR ,NOS , NLUOP , I G ♦ LP , I ND 
Rt  Au ( 5 , 3 ) (OMEN(I)  ,I  = 1,NFR) 

Rt  AD ( 5 , 3 ) (WANG(I) ,I=1,NBTA) 

Rt AD (5, 3)  (FN(I) ,I=1,NFN) 

RtAD (5,3)  ( SD ( I ) ,1  = 1 , NSD  > 

Rt AD (5, 3)  (RBMST ( I) ,I=l,NSTH) 

RtAD (5 , 3 ) (HBMHT ( I ) , 1=1 ,NSTR> 

OMIN=OMEN ( 1 ) 

Nt)TAT  = NBT  A 
N8  r AS=0 

WANG ( N8T  A T ♦ 1 )=777. 

N8TAQ=0 

DU  17  1 = 1,  N8T  A 

IF  (WANG ( I ) .LT.90. ) NBT AQ=NBT AQ* 1 

17  CONTINUE 
NFRS=NFR 

DU  18  1=1, NFR 

18  OMENS ( I ) =OMEN ( I ) 

JC=1 

IF (NBTAQ.NE.O)  JC=2 
JB=  1 

DU  19  1=1, NFN 

19  FNS ( I ) *FN ( I ) 

nfns=nfn 
K ASE ( 1 ) =0 
NRAG=NPAG*1 

WRITE  (6,5)  (PATT ( I ) , 1 = 1 ,7) , (TITLE (I),1  = 1,8),PATT(8) ,NPAG 
WRITE(6,9) 

WRITE(6,51)  (TITLE(I)  ,1  = 1,8) 

WRI TE (6,52)  MONO , JA 
WRl TE (6,53)  SCALE, GRAV 

WRITE (6,52)  NFR,NBTA,NFN,NSD,NSTP,NOS,NLOOP, IG,LP, IND 
WRI TE  (6,53)  ( OMEN (I) ,1  = 1, NFR) 
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WRITE<6,53)  C WANG ( I > *1«1*NBTA) 

WHITE (6*53)  < FN ( I > ♦ I«1 »NFN) 

WHITE(6*53)  (SD  ( I ) 1 1*1  »NSD) 

WRITE (6»53)  (RBMST(I) »I«I,NSTR) 

WHITE (6?53)  (RBHHT (I) * 1*1 *NSTR ) 

IE(SCALE.LE.0.)  SCALE*1 . 

IE(GRAV,LE.O.)  GRAV®32, 174 
IE(NSD»GE61)  GO  TO  79 

NSD«1  — 

SO(l)aO. 

79  IF ( JC.NE.2)  GO  TO  A3 
IF ( JA.NE.2)  GO  TO  A3 
IF(NFN.GE.l)  GO  TO  1AA 
JB=] 

FN ( I ) =0  » 0 
GO  TO  A3 
1AA  CONTINUE 
C 

c FOLLOWING  OR  QUARTERING  SEA  CASE 

C REAL)  IN  BOUNDS  FOR  RWS  AND  DELTA  RwS 

C (RWS  IS  REAL  WAVE  LENGTH  / LENGTH  OF  SHIP) 

C 

C STORE  BOUNDS  IN  RWS(1*N*1)  N=1,NB 
C INCREMENTS  RWS(2,N,1)  N=1,NR-1 

C NUMBER  OF  BOUNDS  IN  RWS  (3, 1,1) 

C 

C BOUNDS  MUST  BE  IN  ASCENDING  ORDER  FROM  MINIMUM  TO  MAXIMUM 

RtA0;5,3)  (RWS(1»N,1) ,N=1,8) 

PE AD { 5 , 3 ) (RWS (2.N* I ) «N=1 .0) 

READ  (5,3)  OM IN, UMAX .DOME 
C 

Nri  = C 

00  301  1 = 1 ,8 

IF (RWS t 1 » 1*1 ) .LE.0.0  ) GO  TO  302 
NB=NB ♦ 1 

301  CONTINUE 

302  CONTINUE 

RWS (3, I , 1 ) -NB 
C 

WRITE (6,3)  (RWS ( 1 ,N, 1 ) ,N=1 ,NB) 

NB=NB- 1 


WRITE  (6,3)  (RWS (2,N* 1 ) *N*1 *NB) 

WK I TE ( 6 , 3 ) OMIN.OMAX .DOME 
A3  RE  AD  (5 , 3 ) EL , GYR , GYRT  *GCB  *,VCG  *GMT  , DEPCAT  , BHCL 

READ (5*3)  fal*fay,depa*chrda,spna,thka,clfa,xzfa 

READ  (5,3)  FBL,FBY*DEPR”,CHRDB»SPNB,  THKB.CLFBrXZFB 
READ  (5,7)  XZFO,XZVL»XZHB*XZPB,KV»KW 


Rt AD  ( 5 * A ) (ST (I) ,BEAM(I) ,DRF  T ( I ) *ArEA(1) ,NM ( I ) ,MPS ( I ) ,1 
WRITE (6,53)  EL, GYR»GYRT»GCB*VCG, GMT* DEPCAT, 8RCL 
WRITE (6,53)  FAL*FAY,DEPA*CHRDA,SPNA,THKA,CLFA,XZFA 
WRITE  (6,53)  FBL*FBY  , DEf’B  *CHRUB  * SRNB » THKB  ♦ CLFB  ♦ XZFB 
WHITE (6,57)  XZFO»XZVL,XZHB»XZPB*KV,KW 


WHITE (6* 5A)  (ST ( I ) * BEAM ( I ) *DRFT ( I ) , A WE A ( I ) »NM ( I ) *MRS ( I ) * 1 = 1 ,NOS) 
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J 


MS*0 

DU  30  I 3 1 »NOS 

It-  ( ST  ( I > .NE.10.)  GO  TO  30 

MS3 1 

GU  TO  31 

30  CONTINUE 
MS=0 

31  N1 X=NM ( 1 ) 

DO  10  I32,NUS 
If (NIX.GE.NM(I) ) GO  TO  10 
N i X=NM ( I ) 

10  CONTINUE 
IN(1)sIABS(NM(1) ) 
nux3IN(1) 

DO  20  1=2. NOS 
IN(I)=IABS(NM(I> ) 

IF (NUX.GE.IN(I) ) GO  TO  20 
NUX=IN( I ) 

20  CONTINUE 

DO  21  1=1. NOS 
BlAM(I)=BEAM(I)*SCALE 

21  DKFT(I)=l)RFT(I)*SCALE 
IF(NUX.LE.O)  GO  TO  13 
NHAG=NPAG*1 

WP ITE (6.5)  <PATT ( I ) .1=1.7) ♦ (TITLt (I),I=l,ft),PATT(8) ,NPA6 

K1M=0 

DO  11  1=1, NOS 
Y8G ( I ) =0 • 

If  (IN(I).LE.O)  GO  TO  11 
LtE  = 3 
NUT=IN ( I ) 

IF (NUT.LE.8)  GO  TO  14 
LtE  = 5 

14  K1M=KIM»LEE 

IF  (MM.LE.50)  GO  TO  15 

K1M=LEE 

NPAG=NPAG*1 

W*  I TE (6,5)  (PATT (J) ,J=1,7) « (TITLt (J) , J=1 ,A) ,PATT (8) »NPAG 

15  WKITE (6,335)  ST ( I ) 

PtAD (5.40)  (X(I,J) »J=1.NUT) 

Pt  AO (5.40 ) (Y(I.J) ,J=1.NUT) 

W^ITE (6,40)  (X ( I , J) , J=1 .NUT) 

WWI TE (6.40)  (Y(I,J> ,J=l,NUT) 

DO  165  J= 1 » NUT 
X(I.J)=X(I»J)*SCALE 
Y< I»J)3Y(I»J)*SCALE 
165  YJK ( J) =Y ( I , J) 

YLGS=XMAX (NUT, YJK) 

Y5ML=XMIN(NUT.YJK) 

0*FT(I)=YLGS-YSML 
Y8G ( I ) = YLGS 

11  CONTINUE 

13  IF (SCALE. EO.l.)  GO  TO  23 
EL=EL*SCALE 
VCG=VCG*SCALE 
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G*T=G*T*SCALE 

ntPCAT=OEPCAT«SCALE 

HpCL=HWCL*SCALE 

du  aa  1=1. nso 
a a su  < i j =sd  < i ) "scale 
nu  au  i=i,nstp 
?<*  phmht  ( I ) =whmmt  1 1 ) *SCALE 
?.l  PtAOlS.^)  NOW.NOL.NSP.NST 
D INUK.U.O)  Gu  TO  7S 
OtAD(S.l)  <«»INK  < I ) . 1 = 1 .NOW) 

PtAD(S.J)  (SHLT(l) •I=l«NOL) 

PtAD(S.T)  < SPEED  < I ) • 1 = 1 ,NSP ) 

Pc.  AD  ( S • 3 ) < ST  AT  < I ) .1  = 1. NST) 

W^ITE (b«3)  (WINK ( 1) • 1=1 .NOW) 

W^ITE(h.J)  (SHLT ( I ) . 1=1 ,NOL> 

WPlTE(b.J)  ( SPEED ( I ) « 1=1 »NSP ) 

WPlTE(fe.J)  (STAT(I) .1=1. NST) 

Nf  N=NOL*NSP 

IMNFN.GT.4  .OP.  JB.EQ.3  .OR.  JA.NE.l)  GO  TO  77 
().  A X=()MAX 
Wp  I TE  < b • 8 ) 

JJ=0 

FACT=1 ,b8B 

I ► (GRAY  .LT  • 3t?.  ) FACT  = .30AR*FACT 
Du  ISO  L=1«NUL 
no  ISO  m=1,NSP 
J J=JJ*1 

ISO  FN ( j J) =F  ACT  * SPEED ( 8 ) /SORT ( GR AV*SHLT (L) ) 
WPlTE(t».3)  (FN(JJ)  »JJ=I,NFN) 

7S  I**  (ms.NF.O)  GO  TO  b9 
Ww I TE (b.b ) 

GU  TO  78 

acj  f)UM=xMAX  (NOS.  YHG) 

DU  lb  1=1. NOS 
NU  T = 1 N ( I ) 

It*  (NDT.LE.0)  GO  TO  lb 
nu  1 a J=  1 « NUT 

12  Y ( I . J) =Y ( 1 « J) -DUM 
lb  CONTINUE 

C**LL  AETSKC  ( ALPGMl  ) 

77  Ic  (LP.LE.O  .AND.  IP.LE.O)  GO  TO  BO 
tNDFILE  “8 
cNdF  I LE  48 
PEWINI)  48 

«0  It  (1NO.EO.O)  GO  TO  777 
1 = 777 

WpITE(2J>  1 • I * I 
EMDT  ILE  23 

pc  w i no  as 

777  W-1TE  (<S.  J000) 

End 


G ***•►  UNCTIONS  *8IN«  »MM,  AND  SI8PLIN  NUT  LISTED — SEE  *OT3S  LISTING**** 
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noon  on 


OVERLAY (2.0) 
PROGRAM  PGMl 


CUMMON/SRYl/  NPAG  » T I TLE ( 8 ) ,P ATT ( B ) , RAT  1 0 

CJHMON/SRY2/  ID.IG.IP.IND.ISU.ISIART. JA, JB, JC.K.LP.MAXD.MONO.MS. 

X NIX.NLOOP.NSD.NSO.NSTR.NUX 

CUHM0N/SRY3/  NOS.NM(30) .BEAM (30) . ORE T ( 30 ) . ARE A ( 30 ) .MPS(30) . 

X DMA (30) » AVDA ( 30 ) ,AVBM(3U) , ST ( 30 > . I N < 30 ) .SOAR (30) . 

X X (30,20) .Y (30.20) 

COMMON /SR Y4/  NUT. NUN, NOE. XS (20) ,YS(20),XX(19),YY(19) .DEL (19) , 

X SNE (19) ,CSE (19) 

CUMMON/SRYS/  VOL  »XlP,OST  »PST .RAM,  L)RT .AIR, AMP  1 , AMR2,DS(30) ,SS(30) 
CUMM0N/SRY6/  NOW, NUL.NSP.NST, WINK (5) .SHLT (6) ,SPEEU(6>  » ST  AT (20) 
CJMMON/SRY7/  NFN.NFNS.FN  (6)  ,FNS<6) 

CUMMON/SRYB/  N8TA,NBTAS.NRTAT.NBTAQ,wANG(8) .COSBET (3) .SlNRET (3) 
CUMM0N/SRY9/  NFR.NFRS.UMEN(30) .OMENS (30) . OMIN, UMAX, DOME .UWAX 
CUMMON/SRY 10/XZHB,XZPR.XZFO,XZVL»KV,KW 
CUMMON/SRYl 1/CHROA, F mK  A • SPNA .FAL.XZFA.CLFA.OEPA.FAY 
CUMM0N/SRY12/CHR0H.THKH.SPNR.FBL»XZFB.CLFH,0EPB,F  BY 
CUMM0N/SRY13/GRAV,0ERCAT.SD(6) .RBMS1 (10) .RBMhT (10) 

C UMMON/SRY 14/EL. OCR. U YR. GYR T .GM.UMT .UMTS, VCG.RF 33, RPJb,RM55 
CUMMON/SRY 1S/A26 (4.30) »Ab2<4,30> ,A4b(4,30) »A64(4,30> ,A6b(4,30) 
CUMMON/SRYl 6/ A22 (30) ,A44(30) ,A24(30) ,OSP(30) ,DRR(30) 

CUMMON/SRY 17/ AS Y (30) ,DSY (4,30) ,AY (30) ,OY (4,30) , ARY (30) ,URY (30) 
CUMMON/SRY 1B/R22 (4,30) »H26 (4,30) »B62 (4,30) »R4b (4,30) ,B64 (4,30) ♦ 

X B66 (4.30) ,B24 (4,30) »H44 (4,30.3) 

CUMMON/SRYl 9/OMEGA. UN,PAS( 19) ,PVS(19) .PAR (19) ,PVR( 19) 
CUMMON/SRY20/HLOG( 19, 19) , YL0U( 19. 19) 

CUMMON/SRY21/KASE (4) ,MIL(4> .CWR1 (4) ,CWR2(4) ,WFR(4,30.3) . 

X WN (4,30,3) ,SWR (4.30.3) ,RWS (4,30.3) 

CUMMON/SRY22/II .EFS.EMR.EMY.LKR (4,30,3) ,EK Y (4,30,3) 

COMPLEX  I I ,tFS (4,30,3) .EMR (4,30.3) , EMY (4,30.3) 

ENO  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  AhOVE  THESE  CAROS) 

CUMMON/ENDCUM/ENDCOM 

DIMENSION  SAS(30) ,SHB(30) ,HSB(30)  , X I ( 20 ) , Y I ( 20 ) 

DIMENSION  F J ( 30 ) , VCBS ( 30 ) 

1 FURMAT ( 1H0.7X.*LEN6TH  BETWEEN  PERPENDICULARS  = * . F 1 0 .5 , 1 X , A6 ) 

2 FURMAT (22X, “REAM  AT  MIDSHIP  = * ,H  0 .b  , 1 X , A6 ) 

3 FURMAT (21X.*DRAFT  AT  MIDSHIP  = * . F 1 0 .5 . 1 X . A6 ) 

4 FURMAT (2SX, iSHUlSPLACEMENT  = FI0.3.10H  LUNG  TONS) 

5 FURMAT  (1H1.15A6.1BX.A6. 14) 

6 FURMAT  (20X.20HRLUCK  COEFFICIENT  = HO.S) 

7 FuRMAT (6X.*LUNGI ToDlNAL  CENTER  OF  HUUYANCY  = * ,F 1 0 .5 , 1 X , A6 , 1 X , 

X *AF T OF  F .P.*) 

8 FURMAT (6X.34HL0NGI TUUINAL  CENTER  OF  BUOYANCY  = F10.5.9H  STATIONS) 

9 FURMAT (4X,*LONGI TUDINAL  CENTER  OF  FLOTATION  = * ,F 1 0 .S , 1 X , A6 . 

X * AFT  OF  F.P.«) 

10  FORMAT (SX.3bHLONGI TUDINAL  CENTER  OF  FLOTATION  = F10.b,9H  STATIONS) 
*11  FURMAT ( 10X, "VERTICAL  CENTER  OF  BUOYANCY  = * ,F 1 0 .b . 1 X , A6 , 

X * FROM  THE  designed  load  WATERLINE*) 
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11  FORMAT (12X.28MRADIUS  OF  GYRATION/L.B.P.  ■ F10.5) 

12  FORMAT (44M0  STATION  BEAM  DRAFT  AREA  COEFFICIENT) 

13  FORMAT  (4F9. 4) 

14  FORMAT (6X.10HSTATI0N  ■ F9.4*6X»30HAREA  COEFFICIENT  CHANGED  FROM  FI 
10.4t2Xt2HTO»2X*F10.4> 

is  format ( iho) 

69  FORMAT (13X»27HGIVEN  CENTER  OF  BUOYANCY  ■ F10.5.9H  STATIONS) 

90  FORMAT (3F9.4.E15.8) 

92  FORMAT (1H0.5X»30HMINIMUM  CRITICAL  ENC.  FREQ.  » F8.4.16M  DUE  TO  STA 
1TION  F7.4) 

206  FORMAT (1H0.30X»23H***DATA  FOR  ONE  HULL***) 

300  FORMAT (27X»13HBEAM/DRAFT  » Flo. 5) 

301  FORMAT (26X.14HLENGTH/BEAM  • F10.5) 

66  FORMAT (1H0»5X.41HTHE  HEAVE-HEAVE  RESTORING  COEFFICIENT  IS  F10.5/6X 
1.41HTHE  HEAVE-PITCH  RESTORING  COEFFICIENT  IS  F10.5/6X.41HTHE  PITCH 
2-PITCH  RESTORING  COEFFICIENT  IS  F10.5) 

193  FORMAT (6X.32HCRITICAL  ENC.  FREQ.  FOR  STATION  .F7.4.3H  = F8.4) 
UNITS*6HFEET 

IF (GRAV.LT.32.)  UNI TS=6HMETERS 
FST*EL/20. 

G YR»GYR*GYR 

GYRT=GYRT*GYRT 

VCG»VC3/EL 

GHT=GMT/EL 

DO  16  K=l»NOS 

I)-  ( IN  (K)  .GT.0)  GO  TO  17 

SOAR(K)=AREA(K)*BEAM(K)*DRFT (K ) 

VCBS(K)=0. 

GO  TO  20 

17  NUT=IN(K) 

VCBS(K)=0. 

VCBA=0 . 

VCBB=0. 

DO  18  J=1 *NUT 
Yl ( J) =Y  <K» J> 

18  Xl (J)=X(K.J>  ♦ SO  < 1 ) 

YbML=AMIN(NUT.Yl) 

DO  190  I Jl  = l .NUT 
NNN= I JI 

IF (YSML.EQ.Y1 (IJI) ) GO  TO  191 

190  CONTINUE 

191  I JI =NNN  , 

IF (MONO  .GT.  1)  GO  TO  199 
I J=I Jl-1 
DO  122  J=1»IJ 

122  VCBA=VCBA*ABS( (X(K.J) *X(K«J+1))*(Y (K* J)**2-Y (K« J»1 ) **2) )*0.2S 
SOER=SIMPUN (Yl.XItlJI) 

SOER=ABS (SQER) 

DO  195  JJ  J= IJI »NUT 

IF'  ( JJJ.EQ.NUT)  GO  TO  127 

VCBB=VCBB*ABS( (X(K.JJJ) *X (K  * JJJ*1 ) ) » ( Y ( K » JJ J) **2-Y (K  » J J J» 1 ) **2) ) * 
*0.25 

127  CONTINUE 

K6K=JJJ-IJI*1 
Xl  (KKK) =XI ( JJJ) 
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195  Yl (KKK)=YI < JJJ) 

S0ER2=S I MPUN  (YI.XI.KKK) 

IF  ( MONO-1 ) 56.57  .199 

56  SUAR(K>=ARS<S0ER2)-SQER 
VCBS(K)=VCHS(K)  ♦VCBB* VCBA 
GO  TO  55 

57  SOAR (K ) = SQER  ♦ SQER2 

IK ( X ( K . 1 ) .LE  . 0.  .AND.  X (K  » NUT ) .LE.  0.)  GO  TO  59 
VCBS ( K ) = VCBS  < K ) ♦ VCBB*VC8A 
GO  TO  55 

59  VCHS(K)=VCBS(K) ♦VCBA-VCBB 
GO  TO  55 

199  S'JtR=SlRPUN(Yl  »XI  .NUT) 

SwAR(K) =2.*ABS (SOER) 

Nit  T = NUT  - 1 
DU  125  J=1.NAT 

125  VCBS(K)  =VCHS(K) ♦0.2S*ABS< <X(K,J)*X<K»JM>>*<Y<K,J) **2-Y (K,.j*l ) ** 
12>  > 

VC8S(K)=2.«VCRS(K) 

55  DO  196  0=1. NUT 
Yi ( J)=Y(K«J) 

196  X i ( J) =X (K. J) 

Bt.AM(K)=xI  (NUT  ) - X l (1) 

If  (MONO.GT. 1 ) BEAM(K)  = 2.*HEAM(K) 

IMHEAM(K)  .NE.0.0)  GO  TO  600 
AwEA(K)=SQAR(K)  /L)R  FT  (K  ) **2 
X (K, 1 ) =X (K. 1 ) -0.001 

Xl  ( 1 ) = X ( K . 1 ) 

uO  TO  20 

600  A WE A <X)=SUAR (K ) / (HE AM ( K ) *DRF T ( K ) ) 

20  S5(K)=EST*ST(K) 

16  SAS(K)=SS(K)*SOAR(K) 

KWK  = 0 
L5U=0 

If  ( N I X.GT.O)  GO  TO  21 

DU  32  K=1,NUS 

ic  (NM(K) . GT . 0 ) GO  TO  32 

1M (BEAB(K) .LE.O. ) .OR. (DRFT ( K > .LE.O.) ) GU  TO  32 
A1W=AREA (K ) 

»AT=0.5*HEAM(X) /DRFT ( K ) 

TAH=1. 0/RAT 

IF  («AT. LE. 1.0)  GU  TO  33 
RL=0. 29456* (2.0-TAW) 

GU  TO  34 

33  HL  = U. 29456* (2.0-RAT) 

34  UL=0 . 09B1 25* (RAT ♦TAR*10.0) 

IF  (AREA (K) .GT.BL)  GO  TO  35 
ftwtA (K)=BL*0.0001 

GU  TO  36 

35  IF  (AREA(K) .LT.UL)  GO  TO  32 
AREA ( K ) =UL-0 .0001 

36  IF  (KPK.GT.O)  GO  TO  37 

kwk=kpk ♦ i 
NWAG=NPAG* 1 

WwITE (6.5)  (PATT ( I ) . 1=1 .7) . ( TITLt ( J) . J= 1 . fi ) .PAT T ( 8 ) .NPAb 
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WHITE (6t 15) 

37  WHITE(6.14)ST(K)  . AIR. ARE A (K) 

L5D*LSD*1 

SUAR(K)*AREA(K)*BEAM(K)»DRFT<K) 

SAS(K)>SS(K)*SQAR(K) 

32  CONTINUE 

21  IF (NUX.LE.O)  GO  TO  25 
IF (KPK.GT .0 ) GO  TO  93 

nhag*npag.1 

WHITE (6.5)  (PATT(I) »I«I.7> . ( TITLE ( J) . J*i .8) ,PATT(8) .NPAG 
93  WHITE (6. 12) 

OU  22  K«1,N0S 

IF ( IN ( K ) .LE.O)  GO  TO  22 

LSU*L5D. 1 

IF (AREA(K) .LT. 1000.0)  GO  TO  91 

WHITE (6.90) ST (K) .BEAM (K) ,DRFT(K) . AREA (K) 

GU  TO  22 

91  WHITE (6. 13) ST (K) .BEAM (K ) ,DRF T (K > * AREA (K) 

22  CONTINUE 

IF (NIX. LE.O)  GO  TO  25 
UAslOO.O 

IF (LSD.LT.23)  GO  TO  201 

nhag=npag*i 

WHITE (6.5)  (PATT(I) .1*1.7) . (TITLE (J) .J*1.8) .PATT(8> .NPAG 
201  WHITE (6.15) 

00  23  K=1,N0S 
IF  (NM (K) .LE.O)  GO  TO  23 
IF  (0EAM(K)  .NE.  0.0)  GO  TO  601 
F J(K ) = 0.0 
GO  TO  602 

601  CONTINUE 

A*  3 . 1 415927#DRFT (K ) /BEAM (K ) 

A*A/TANH(A) 

FJ(K)*SQRT  <A*EL/DRFT  <K ) ) 

602  CONTINUE 

IF (FJ(K) .GT.OX)  GO  TO  233 
OA=F J(K) 

JOHNaK 

233  WHITE (6. 193) ST (K) .Fj(K) 

23  CONTINUE 

WHITE (6, 92) OX, ST (JOHN) 

25  CONTINUE 

VUL*SIMPUN(SS, SOAR. NOS) 

IF (BEAM (MS) .EQ.0.0)  GO  TO  703 
BLOCK* VOL/ (EL»BEAM (MS) *DRFT (MS) ) 

GO  TO  70A 

703  BLOCK  = 0 • 0 

704  CONTINUE 

VCB*SI MPUN ( SS. VCBS  *NOS) /VOL 
BUY*SlMPUN(SS,SAS.NOS)/VOL 
CBL*BOY/F  ST 

IF (GC8.LE.0.0)  GO  TO  68 
BUY*FST*GCB 
68  DO  19  K*1 «NOS 

SHB  <K ) * ( SS (K ) -BOY ) *BEAM (K ) 
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19  H5B(K)=(SS(K) -BUY ) #SHB (K ) 

EL2=EL*EL 

AMP1=SIMPUN(SS. BEAM, NOS) /EL2 
A^H2=SIMPUN(SS.HSB.N0S)/(EL2*EL2> 

CUN=EL2*EL/V0L 
RF  33=C0N*AMP1 
8u=ABS(VCG*tL*VCB) 

RM55=C0N*AMP2-BG/EL 

RR35=S I MPuN ( SS  . SHB .NOS ) /VOL 

GBTS=0. 

IF (ABS(GMT) .GT.l.E-04)  GO  TO  403 
00  402  K=1»NUS 

402  S^B(K)=BEAM(K)**3 

GMTS=SIMPUN(SS.SMB*N0S)/(12.*EL*V0L)-BG/EL 

403  CFL=BOY*EL*RP35/RF33 
FLC=CFL/FST 
P5T=FST*CBL 
FACT=35. 89744 

IF (GRAV.LT.32.)  FACT*.02832«FACT 
VOL=VOL/F  ACT 
NPAG=NPAG* 1 

WRITE (6.5)  (PATT ( I ) . 1=1.7) * (TITLE (J) . J=1 ,8) .PATT (8) ,NPAO 
WRITE (6.206) 

WRITE (6. 1 ) EL. UNITS 

WR I TE ( 6 * 2 ) riEAM(MS) .UNITS 

WR I TE ( 6 . 3 ) DRFT (MS) .UNITS 

WRl TE (6.4) VOL 

VUL=VOL»FACT/EL**3 

WRITE (6.6) BLOCK 

WR I TE ( 6 . 7 ) PST. UNITS 

WR I TE ( 6 . 8 ) CBL 

It-  (GCB.LE.0.0)  GO  TO  67 

WRITE(6.69)0C8 

P5T=FST*GCB 

67  WRI TE (6.9)  CFL. UNITS 
WRITE(o.10)FLC 
WR I TE ( 6 « 1 1 1 ) VCB, UNITS 
BUR=BEAM(MS) /DRFT (MS) 

WRlTE(6.300)BDP 

IF (HEAM(MS) .EQ.0.0)  GO  TO  700 

ELBR=EL/BEAM(MS) 

GO  TO  701 

700  ELHR=0.0 

701  CUNTINUE 

WRITE  (6.30DELBR 

WRITE (6.66)  RF33.RP35.RM55 

OU  31  K=l,NOS 

SS(K)=SS(K)/EL 

SUAR(K)=SQAR(K)/EL**2 

BtAM (K) =BEAM (K ) /EL 

ORFT (K) sORFT (K)/EL 

IF  (NM(K) .LE.O)  GO  TO  31 

NUT* IN (K ) 

. DU  24  Jsl.NUT 
X(K.J)=X(K.J)/EL 
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n n n 


2A  Y(K.J)*Y(K»J)/EL 
31  CONTINUE 
PST=PST/EL 

CALL  NILS(NOS*MS»ST.DS.JFK) 

IF (JFK.GT.O)  GO  TO  76 
IO=-l 
GO  TO  77 

76  If (OMIN.LE.O.O.OR.JA.EQ.3)  GO  TO  77 
TRANSFER  TO  LOOP  TO  CALL  PGM2  AND  PGM3 
CALL  AETSKC (5LPGM1A) 

77  CONTINUE 

IMIO.EU.2  .OR.  IO.EQ.-1)  CALL  AETSKC <6LM0T246 ) 
CALL  AETSKC (4LPGMA) 

END 
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o n o n n o o 


OVERLAY (3.0) 
PROGRAM  PGM1B 


COMMON/SRYl/ 
CUMMON/SR Y2/ 


COMMON/SRY3/ 


COMMON /SR Y A/ 

( 

COMMON/ SR YS/ 
COMMON /SR Y6/ 
COMMON/SRY7/ 
C0MM0N/SRY8/ 
COMMON /SR Y9/ 


NPAG. T I TLE (8) ,PATT(8) .RATIO 

10. IG.IR. IND. ISO, I ST  ART . JA. JB. JC »K ,LP ,MAXD .MONO »MS 
NIX,NLOOP»NSD»NSO,NSTR,NUX 

NOS ,NM ( 30 ) .BEAM (30) ,OrFT (30) .AREA (30) ,MPS(30) , 

X DMA (30) » AVDA ( 30 ) ,AVdM(30) , ST ( 30 ) . IN ( 30 ) .SOAR (30) . 

X X (30.20) ,Y (30,20) 

NUT, NON, NOE, XS( 20) , YS (20 ) , XX ( 19 ) . VY ( 19 ) ,0EL(19) » 
SNE (19) ,CSE  < 19 ) 

VOL.XIP.DST.PST .BAM.ORT .A1R.AMP1 ,AMP2,DS(30) ,SS (30 
NOW, NOL.NSP.NST, WINK (5) ,SHLT(6) .SPEEU(6) . ST AT (20) 
NFN ,NENS  »FN (6 ) .FNS (6) 

NRTA.NBTAS.NBTAT »NBTAQ»wANG(8) .COSBET (3) .SINBET (3) 
NFR ,NFRS .OMEN ( 30 ) ,0 MENS(30) , OMIN, UMAX .DOME ,OWAX 
COMMON/SRYl 0/XZHH,XZPB»XZFO,XZVL»KV»KW 
COMMON/SRYl l/CHROA,TMKA,SPNA,FAL,XZF A.CLFA.DEPA.FAY 
COMMON /SDY 1 2/CHRU8  » TMKB , SPN8  «FBL  » XZF B, CLFB .DEPB ,FBY 
COMMON/SR Y 13/GRAV.DEPCAT ,SD (b) .RBMST (10) « RBMHT (10) 

COMMON/SRYl  <./EL, GCB.GYR.GYRT.GM, GMT, OMTS,VCG,RF33,RP35,RM55 
COMMON/SR Y15/A26 (A. 30) ,A62<4,30> ,A46(4,30) ,A64<4,30) ,A66<4,30) 
COMMON/SRY 1 b/ A22 (30) ,A44(30) ,A24(30) ,DSR(30) ,DRR(30) 

COMMON/SRYl 7/ASY (30) ,DSY (4 , 30 ) , A Y ( 30 ) .OY ( 4 , 30 ) » AR Y ( 30 ) »URY(30) 
COMMON/SRYl  >3/922(4,30)  ,826(4,30)  .862(4,30)  ,846(4,30)  .864(4,30)  , 
X B66 (4,30) ,B24 (4,30) ,844 (4,30,3) 

COMMON /SK  Y19/0MEGA, UN , PAS ( 1 9 ) ,PVS<19) ,PAR(19) ,PVR(19> 

COMMON/SR Y20/BLOG (19,19) , YLOG< 19, 19) 

COMMON /SPY 2 i /K ASE ( 4 ) ,MIL (4) ,CWR1 (4) ,CWR2(4) , WFR ( 4 , 30 , 3 ) , 

X wN (4 , 30  « 3 ) ,SWR (4,30,3) ,RW5 (4,30.3) 

COMMON/SRY22/I I ,EFS »EMR ,EM Y ,EKR (4,30,3),EKY(4,30,3) 

COMPLEX  I I , EFS (4 , 30 ♦ 3 ) ,EMR (4,30,3) ,EMY (4,30.3) 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 


C.OMMON/ENDCOM/ENUCOM 

COMPLEX  TEMP 
T"OUL=2./EL 
CUN=1 .688 

IF  (GRAV.LT. 32.  ) CON=  . 3048*C()N 
CON=SORT  <GRAV*EL> /CON 
F«CT=SURT (GRAV/EL) 

FARD=0. 01 7453293 
BbU=BEAM (MS) *EL 
DO  205  ISO=l,NSO 
HHS=2 . 0* (SD ( I SU) ) -BSD 
IF (BSD  .LE.  l.E-07)  GO  TO  88 
RAT IO=HHS/BSO 
GO  TO  87 
88  R«TIO=HHS 

87  IF (MONO  .GE.  1)  RATIO=0. 
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SDI  = SD(ISO)/EL 
SD  ( ISO)* SOI 

IF(ABS(GMTS).GT.1.E-04I  GMT*GMT$»SOI’SOI’AMPl/VOL 
IF ( GM  TS.  GT.l.E-04)  WRITE(6,176)  SOdSDI.CHT 
IFdSO.GT.il  FAY*FAY»EL*(SO(ISDI-SO  (ISO-1) } 

IFdSO.GT.lt  FBY«FBY*EL’<SD (ISO) -SO (ISO-Ill 
CALL  AET  SKC  (5LQPGM2 1 
IF ( IO.GT .1)  GO  TO  77 
CALL  AET SKC (6LQPGM2B) 

IF  ( IO.GT  .1)  GO  TO  77 
CALL  AET  SKC 1 5LQ PGM 31 
IF(NOW.GT.OI  GO  TO  78 
5 FORMAT (1  HI, 15A6, 18X,A6, 14) 

171  F0RMAT(3 X.’WAVE  HEADING  =’,F6.1,*  DEGREES*/) 

172  FORMAT <3  X»* ABSOLUTE  DISPLACEMENT,  VELOCITY,  AND  *, 

X ’ACCELERATION  AT  STATION  *,F5.1,*  AND  HEIGHT  *,F5.1» 

173  FORMAT  <//3X, ’SPEED  =*,F5.1,*  KNOTS’) 

174  FORMAT((5X,F10.2,3(7X,F8.3) ,5X,F10.4) ) 

175  FORMAT (3  X.’ENC  PER < SEC) * , 6X , * A8S  0 ISPL’ » 12X , ’VEL* , 8X , 

X *ACCEL/G*,7X,’MAVE  L/L*) 

176  FORMAT!/ ///10X, ’CALCULATED  GMT  = ’,E12.5,’  FOR  SEPARATION  ’ 
X ’OISTANCE  OF  ’,F7.2) 

DO  150  KI  = 1,NSTR 

LI NE  S=2 
NP AG=NPA G’l 

WRI T E (6* 5 ) (PATT(I) ,1=1 ,7) , (TITLE(I1 .1*1.8) ,PATT (8)  ,NPAG 
RBMSTK=RBMST(KI) 

RBMHTK=RBMHT(KI) 

WR I T E f 6, 172)  RBMSTK .RBMHTK 
ARM  = Et.*C  PST-.05*RBMSTK) 

DO  150  M M= 1 , NBT  A 
DO  160  J J=1 , NFN 
LMT  = MIL( JJ) 

IFILMT.LE.O)  GO  TO  160 
SPID=FN( JJ) ’CON 
LINES=LI NES»LMT’5 
IF (LINES .LE.60)  GO  TO  89 
LINES=5 
NPAG=NPA G* 1 

WRITE  (6, 5)  CPATT(I) ,1=1 ,7) , (TITLE (I) , 1 = 1,8) ,PATT  (8)  ,\PAG 
WRITE(6, 172)  RBMSTK, RBMHTK 
89  WRI TE  (6, 173)  SPID 

WRITE(6, 171)  WANG(MM) 

WRI T E ( 6,  175) 

00  170  N = 1 , LMT 
TEMP=EFS ( JJ,N,MM) 

SWAY=REAL(TEMP) 

OELTArFARD* AIM AG  (TEMP) 

TEMP=EMY ( J J , N, MM ) 

YA W = T WOO  L ’REAL (TEMP) 

EPS IL  = FA RO’AIMAG  (TEMP) 

TEMP=EMR ( JJ , N, MM) 

ROLL*REAL (TEMP) 

RPHASE=F  ARO’ AIM AG (TEMP) 
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ABMA»SMA Y*COS<OELTA) ♦ ARM* Y AW*COS < EPS IL > -RPMhT K *R01L*C0S (RPhASD 
ABM8  = SWA  Y*SINCOElTAI*ARM*YAW*SIN<EPSlL)-RnMHTK*ROLL*SlN(RPWASE> 
ABM  0 = SQR T ( ABMA* ABM A ♦ ABM O* A BMB) 

0MEGAE*0 MEN  C N » • PACT 
ENCP=6.2  631 853/ OMEG At 
VEL=OM£G  AE* A8M0 
ACCEL=OMEGAE*VEL/GRAV 

170  WRI TE (6. 174)  ENCP . ABMO, VEL , ACCE L , RMS <~ J , N , MM ) 

16)0  CONTINUE 
150  CONTINUE 
10=1 

77  CONTINUE 

IF(INO.EO.O>  GO  TO  78 
00  81  JJ  = 1,NFN 
00  81  N= 1 » N FR 
00  81  MM=1,NBTA 

EMR<JJ,N,MMI=EKR<JJ.N.MM>»II*AIMAG(EMR(JJ,N,MM)> 

81  EMY(JJ,N,MM)=EKY(JJ.N,MM)»II*AIMAG(EMY(JJ,N,MM)) 

HR  I T E < 23 ) NFN,NFR,NeTA 

WRITE  (23  ) <FN(I > ,I  = 1,NFN) , (OMEN (I  1 ,I  = l,NFp)  , < WANG<  I > . 1= 1 , NET  A I 
WRI TE (23  J ( ( (HER ( JJ,N»MMI .EFS( JJ.N,MMI .EMR ( .FMY ( JJ ,N.MM)  , 
X JJ=1, N FN) , N=1 ,NFR) ,MM=1 ,NBTA) 

78  CONTINUE 

IF (JA.EQ .2)  CALL  AETSKC (5LPGM1AI 

IF<I0<EQ<2  .OR.  ID.E0.-1>  CALL  AE  TS  KC  ( 6L  ?<,6  > 

IFILP.EQ.O  .ANO.  IP.EQ.O  .ANO.  NOW.EC.0>  CALL  AE TSKC (bLM0T2«6l 
IF(LP.EQ.O  .ANO.  IP.EQ.O  CALL  AE  TSKC  ( U L DGM5  > 

2C5  CONTINUE 
END 


o o n o on 


PROGRAM  UPGM2 


COMMON /SRY 1 / NPAG, TITLE (8) ,PATT  (8) , RATIO 

COMMON /SR Y2/  ID. IG» IP. IND, ISD.ISl ART, JA, JB, JC.K,LP,MAXD,MONO,MS» 
X NIX  *NLOOP  *NSD  »NSO  * NSTR  *NIJX 

COMMON/SR Y 3/  NOS*NM (30 ) .BEAM (30) . URF  T (30) .AREA (30) .MPS(30) . 

X OMA (30) . AVDA ( 30 ) ,AVBM(30) . ST ( 30 ) . I N ( 30 ) .SOAR (30) . 

X X (30.20) .Y (30.20) 

COMMON/SR Y4/  NUT. NON, NOE, XS( 20) , YS (20 ) , XX ( 19) , YY < 19) .DEL (19) . 

X SNE ( 19) ,CSE ( 19) 

COMMON/SR YS/  VOL , X I P ,DST .PST » BAM , DRT . A I R , AMP  1 , AMP2 , OS ( 30 ) ,SS(30) 
CUMM0N/SRY6/  NOW.NOL.NSP.NST .WINK (5) ,SHLT<6) ,SPEEU<6> ,STAT(20) 
COMMON/SRY7/  NFN.NFNS.FN (6) ,FNS<6) 

COMMON/SR YH/  NBT A ,NBT AS .NBT AT ,NBT AQ , WANG ( 8 ) .COSBET (3) .SINRET (3) 
COMMON/SR Y9/  NFR,NFRS.OMEN(30) ,OMENS(30) , OM I N , UMAX , OUME .OWAX 
COMMON/SR Y10/XZHB,XZPB,XZFO,XZVL.KV,KW 
COMMON/SRYl 1/CHRDA,THKA,SPNA,FAL.XZFA,CLFA,DEPA,FAY 
COMMON/SR Y12/CHRDB,THKB,SPNB»FBL»XZF«»CLFB,DEPB, FRY 
COMMON /SPY 13/GRAV,DEPCAT,SD (fa) , RBMST (10) , RBMHT (10) 

CUMMON/SR Y l4/EL»GCB»GYR,GYRT .GM.GMT .GMT  S»VCG»RF33»RP3S, RM55 
COMMON/SRY 15/A26 (4,30) ,A62(4,30) »A46<4,30) ,A64<4,30> ,Afafa(4,30) 
COMM()N/SRYlfc/A22  (30)  ,A44<30)  ,A24(30>  .DSR(30)  ,DRR(30) 

COMMON/SRYl T / AS  Y (30) ,DSY <4,30>,AY(30)»DY(4,30) , ARY (30)  .DRY (30) 
CJMMON/SRY 1B/R22 (4,30) .B26 (4,30) »Bfa2 (4,30 ) »B46 (4,30) «B64 (4,30 ) , 

X Bb6 (4.30) ,824(4,30) ,844(4,30.3) 

COM’  ON/ SR Y 1 9 /OMEGA ♦ UN , P AS ( 1 9 ) ,PVS(19) .PAR (19) ,PVH(19) 
COMMON/SRY20/BLOG( 19, 19) ,YLOG( 19, 19) 

COMMON /SR Y21 /KASE (4 ) .MIL (4)  .CWRl  (4)  ,CWR2(4)  ,WFR(4,30.3)» 

X WN (4 , 30  » 3 ) , SWR (4,30.3) .RWS(4,30.3) 

COMMON 'SRY22/I I .EFS.EMR.EMY ,EKR (4, 30.3), EKY (4, 30.3) 

COMPLEX  I I ,EFS (4,30,3) ,EMR (4,30,3) ,EMy (4,30,3) 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 

COMMUN/ENDCOM/ENOCOM 
C 

1 FORMAT ( 1H0,SX,*DYNAMIC  COEFFICIENTS  OF  THE  EQUATIONS  OF  MOTION* 

X ////faX.*A22  IS  SCALED  BY  M.*// 

X 6X,*A24,  A26  AND  A62  ARE  SCALED  BY  *,4HM*L.// 

X faX , *A44 , A46 , A64  AND  A66  ARE  SCALED  BY  *,6HM*L*L.// 

X 6X.*B22  IS  SCALED  BY  *»12HM*SQRT (G/L) .// 

X 6X,*824,  B26  AND  B62  ARE  SCALED  BY  * , 1 2HM*SORT ( G*L ) . // 

X 6X,*B44,  B46 , B64,  AND  B66  ARE  SCALED  BY  * , 1 4HM*L*SQRT ( G*L ) . // 
X faX ,4HB44* , * IS  B44  EXCLUDING  CROSS-FLOW  DRAG  CONTRIBUTIONS.*// 
X 6X,*M  IS  THE  DISPLACED  MASS.*// 

X 6X,*G  IS  THE  ACCELERATION  DUE  TO  GRAVITY.*// 

X 6X,*L  IS  the  distance  BETWEEN  PERPENDICULARS.*//// 

X 6X,*FN  IS  THE  FROUDE  NUMBER  = (FORWARD  SPEED) /SORT (G*,4H*L ) .// 
X 6X , *BET A IS  THE  WAVE  HEADING  ANGLE  IN  DEGREES.*/ 

X 6X , *8ET A = 180.  FOR  HEAD  SEAS.*// 

X 6X,*0MEGA  IS  THE  ENCOUNTER  FREUUENCY  NON-DIMENSIONALI ZED* 

X * BY  SORT (G/L) .»// 

X faX , * THE  HULL  SEPARATION/BEAM  PATIO  IS  THE  DISTANCE*/ 

X faX ,*BETWEEN  THE  HULLS  DIVIDED  BY  THE  BEAM  OF  ONE  HULL.*) 
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2 format  ( 1hO»5x.*HARE  HULL  POTENTIAL  FLOW  ADDED  mass  COtFF  ICIENTS*/ 

X 6X ♦ *FN  = *, 

X F5.3//10X*  *0ME6A*«  7 X » *A22*  »3X»*A24*A42*.7X»*A26*t7X»*A6;?««7x» 

X *A44*.7X.*A46*.7X.*A64*.7X»*A66*) 

3 FORMAT ( 1H0«5X.*8ARE  HULL  POTENTIAL  FLOW  DAMPINO  COEFFICIENTS*/ 

X 6X.*FN  = *tF5.3// 

X 10X**OMEGA*,7X.*B22*»3Xt*B24»BA2*.7X»*B26*»7X,«H62*»7X.#H44*. 

X 7X  « *846*  »7X  * *R64*  * 7X  * *B66* ) 

4 FORMAT (F15.4.8F10. 6) 

5 FORMAT  (1HI*15A6»18X«A6*I4) 

11  FORMAT ( 1HO»5X«8HSTATION»F7.4) 

150  FORMAT(lH0»80X,*HULL  SEPARATION/BEAM  =*»F7.4) 

205  FORMAT (IH0.5X.43HPROJECTED  AREA  OF  THE  SUBMERGED  HULL/L**2  =.E15.6 
1/5X.13HMUMENT/L**3  *.E15,6.5X.24HM0MENT  OF  INERT  I A/L**A  =,E1S.6> 
DIMENSION  X JK ( 20 ) 

COMPLEX  F2D*F4D1 »F4D2*F6D»I COSRK  »EKD2X»CEKXC 
IF ( 1 .EQ.O)  CALL  PGM1B 
QP I = 0.7853982 
EL2=EL*EL 
RVUL  = VJL*ti-*EL2 
NSO=NOS 
1 1 = ( 0 . 0,1.0) 

DO  12  MM= 1 »NBT A 
WANU=WANG (MM) *.01745329252 
COSBET  (MM;  =C(JS  (WAND) 

12  S1NBET (MM)=SIN (WAND) 

CALL  (JDFCN 

DO  151  JJ=1,NFN 
00  151  N=1,N-~R 
DO  151  MM=1,NBTA 

151  RwS ( JJ.N. MM) =1 ,/SWR ( JJ.N, MM) 

DO  40  N=1.NFR 

A22 (N) =0. 

A24 (N) =0. 

A44 (N) =0. 

DSR (N) =0. 

DRR (N) =0. 

ASY (N) =0. 

AY (N)=0. 

ARY (N) =0. 

DRY (N) =0. 

40  CONTINUE 

DU  50  J J= 1 , NFN 
DO  50  N=1,NFR 
D5Y (JJ.N) =0. 

DY ( JJ.N) =0. 

H22 ( JJ.N) =0 • 

DU  50  MM= 1 »NBT A 
EF  S ( J J »N  »MM ) = ( 0 . « 0 . ) 

EMR (JJ.N. MM ) = ( 0 . « 0 • ) 

50  E'^Y  (JJ.N.  MM ) = ( 0 . « 0 . ) 

sia=sim=sii=sir=sirm=sirr=o. 

PwUA=PROM=PRO 1=0. 

DO  60  K=l,NOS 
X1P=PST-SS(K) 
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XlP2=XIP*XlP 

DST=DS(K) 

NOT  =NM ( K ) 

IK (NUT  .EQ.  0)  GO  TO  60 
DU  333  I JK*1 *NUT 
333  XJK(IJK)=X(K,IJK) 

XLG*XMAX (NUT  « X JK ) 

XSM=XMIN (NUT  * X JK ) 

AVBM(K)=XLG-XSM 

BAM»BEAM(K) 

DRT=DRFT  (K) 

A I R= ARE A ( K ) 

DA=DST*AVBM(K) 

PPOA=PROA»DA 

PWOM=PROM-XIP*OA 

PROI=PR01*XIP2*OA 

NON=NUT - 1 

NUE=2*N0N 

DU  62  J= 1 »NUT 

XS(J)=X(K,J) ♦SO(ISD) 

62  YS(J)=Y(K,J) 

YSML  = XMIN (NUT « YS) 
YLG=XMAX(NUT«YS) 

OM=YLG-YSML 

D"A (K) =DM 

AVD=.5*(YLG*YSML) 

AVDA  < K ) = AVD 
DAB=UST*DM 
Si A=SI A+DAB 
SIM=5IH»DAB*XIP 
SH=SII+DAB*XIP2 
C AVD  IS  A NEGATIVE  NUMBER 

DAB=DAQ*AVD 
S I R=S I R-DAB 
S1RM=SIRM-DAB«XIP 
SIPR=SIPR*DAB*AVD 
DU  65  IJI  = 1*  NUT 
NMN  = IJI 

IF (YSML.EQ.YS(IJI) ) GO  TO  66 

65  CONTINUE 

66  MAXD  a NNN 

IF (MONO  .GT.  1)  MAXD=1 

DU  63  JaltNON 

XX  ( J)a0.5*(XS(J)  *XS(  JM>  ) 

YY (J)*0»5#(YS(J) ♦YS(J^I) ) 

XINT»XS<J*I)-XS<J> 

YlNT=YS(J*l)-YS<J) 

DEL (J) -SORT (XINT*«2»YINT*»2) 
SNE(J)*YINT/DEL(J> 

63  CSE ( J) «X I NT /DEL ( J) 

CALL  FRANK 
IF(IO.LT.2)  GO  TO  60 
STATION»20.0*SS(K) 
WRITE(6«11)STATI0N 
GU  TO  77 

60  CUNTINUE 
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WHITE (6.205)  PROA, PROM, PROI 

DU  70  N=1,NFR 

G*I=OMEN(N) 

DtB=GXl*VOL 

Dt A=GX I *DEB 

A22 (N) =422  < N ) /UEA 

A44 (N) =444 (N) /UEA 

A24(N)=A24(N)/UEA 

DHR(N)=l)RR(N)/UEB 

DSR(N)=DSR(N)/UEB 

AH Y (N) = ARY (N) /UEA 

OhY(N)=DRY(N)/UEB 

ASY ( N) =ASY  (N> /DEA 

AY (N) =AY ( N ) /UEA 

DU  70  JJ=1»NFN 

DbY(JJ,N)=DSY(JJ.N)/DEB 

DY ( JJ.N) =DY ( JJ.N) /DEB 

B22 (JJ.N) =B22( JJ.N) /DEB 

70  CUNTINUE 

DU  71  N=1,NFP 
GXI=0MEN(N> 

GX2=GXI*GXI 
DU  71  JJ=1,NFN 
FMJ=FNl  JJ) 

R26=FN J/GX2 
R66=FNJ*H26 
S«=ASY <N) 

SB=H26*B22 (JJ.N) 

A26( JJ,N)=SA+SR 
Ab2 ( JJ,N)=SA-SB 
SA=USY ( JJ.N) 

SB=FNJ*A?2 ( N ) 

B26(JJ,N)=SA-SB 
Rb2(JJ,N)=SA.SH 
SA=R26*DSR (N) 

SdsARY (N) 

A<+6  ( JJ.N)  = SB*SA 
AbA  < JJ,N)=SB-SA 
SA=DRY (N) 

Sb=FNJ*A24 (N) 

BA6(JJ,N)=SA-SB 
Bb4(JJ,N)=SA.SB 
Ab6 ( JJ ,N) =A Y (N) ♦R66*A22(N) 

B66< JJ»N) =DY( JJ.N) ♦R66*R22( JJ.N) 

71  CUNTINUE 

It-  (IG.LT.2)  GO  TO  306 
NPAG=NPAG. 1 

WHITE (6.5)  (PATT (I) ♦ 1*1 .7) . < T ITLt ( J) » J* 1 .8 ) .PATT (8) .NPAG 
WHITE (6. 150)  RATIO 
WHITE (6.1 ) 

DU  73  JJ=1.NFN 
LMT=MIL(JJ) 

If-  (LMT.LE.O)  GO  TO  73 
NHAG=NPAG.l 

WHITE (6.5)  (PATT (I) , I * 1 ,7 > , < T I TLt < J) . J* 1 ,8 > , PATT < 8 ) . NP  AG 
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(b.l50)RATU> 

W*lTE(ft.2>  FN(JJ) 

W^ITE  (ft.  4)  (UMEN(N)  ,A?2(N>  »A24(N)  .A26(JJ.N)  .Aft2(JJ.N)  .A44(N)  » 

X A4ft ( JJ.N)  .Aft4  (JJ.N)  « Aftb  (JJ.N)  »N=  1 «LMT  ) 

WRlTE(ft.3)  FN(JJ) 

W*l  T£  (6.4)  (OMEN  <N)  ,H?2  ( JJ.N)  .DSR (N>  «H26  ( JJ.N)  «H62  ( JJ.N)  .DRR (N)  « 
X H4b ( JJ.N)  ,Hb4 ( JJ.N)  « Hft6 (JJ.N)  .N=l ,LMT ) 
n CONTINUE 
30ft  CONTINUE 

C5A  = CHRl)A*SHNA 
CSB=CHRDH»SRNH 

A JF  A = (JPI*CSA»  (CHROA*  THKA)  /RVUL 
AJEH=URI»CSri» (CHRDH^THKH) /RVUL 
F4YEL2  = FAY<»FA.Y/EL2 
F~iYEL2  = FHY*F  HY/EL2 

V *At3  = (CLF A«F  AYLL2*CSA»CLF8*FrtYEL2*CSB) / (EL2*V0L) 

A''1AB  = FAyEL2"ADFA*FHYEL?*ADFH 

So  I =SL)  (ISO) 

H-»4S1  = ROOA*SI)I*Sl>I  *SIRR 
HaZVL=.5»XZVL/V0L 
00  7?  N=1.NFR 
OA I =UMEN ( N ) 

GX2=bXl*GXl 
A *4 (N) =A44 (N) ♦ A M A H 
DU  72  J J = 1 . nF  N 
F mJ=FN ( JJ) 

V ISF  = HXZvL°FNJ,vFNJ/GX? 

A2b ( JJ.N) =A2b  < JJ.N) *VISF*SI A 
A-»ft  (JJ.N)  = A4ft  (JJ.N)  ♦ V I SF  *S  I W 
Abft (JJ.N) =Abft (JJ.N) ♦ V I SF  *S  I M 

V i i>F  = MXZVL<»F  NJ 
Sa=vISF>SIM 

82b ( JJ.N) =H2ft (JJ.N) *SA 
Ro2 (JJ.N) =Hb2 (JJ.N) ♦ S A 
S*=DRR (N>  ♦FnJ*VMAH«'VISF»BAASI 
l)U  75  MMsl.NHTA 
75  H-.4  (JJ.N.MM)  = SA 

H 24 ( JJ.N) = D5R (N) ♦ V 1 SF  *S I R 
SA  = V I SF  <>S  I RM 
H4ft (JJ.N) =H4ft (JJ.N) ♦ S A 
R->4  ( JJ.N)=Hb4  ( JJ.N)  *SA 
H^b (JJ.N) =Hbb (JJ.N) ♦ V I SF  *S 1 1 
72  H22  (JJ.N)  =H22  (JJ.N)  ♦\/lSF*SIA 
L)tPCAL=L)ERCAT/EL 
Du  HO  JJ= l .NFN 
MI=MIL<  JJ) 
ic  (LMT.Lt.U)  GU  TO  HO 
Ha2VL=.5*FN( JJ) *XZVL 
DU  HI  MM=  J ,NH  T A 
CUSh=COShET (MM) 

55 INH*SU I *SlNHET (MM) 

UJ  HI  N=1*I_MT 
CAY=#N (JJ.N.MM) 

ILOSMK=I 1 ^CA Y^CUSH 
EftU=tXP  (-CAY*I)ERCAL) 
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Fro  = F<40i=*:4n2=F6n=(Q.,n.) 
no  82  *= 1 .NOS 
XlP=PST- SSI «) 

D=OHA  (Kl 
02* - A VDA  OO 

CEKXC=CE  XP| IC0SRK*xIP»*0ST 
E«02X*EX  F (-CAY*0?»  *CEKX  C 
F2nrF20»  D*E*02X 

IF (CEPTA  T.lE.O.I  EKC  = EXP(-CAY»ABEA(K)‘OPrT(^)) 
C 0 E p C.  A T OEFINEO  FOR  SMATu 

C AP£  A (K  » *CPF  T (K»  GIVES  (CROSS  SECTIONAL  AbeAj/luA" 
Pur)l  = AV3M(K)*EK0*CEKXC 
F*»02  = fud2*3*C2*EkC2x 
h?  FhOrFf-n*  xip*o*eko?x 

CON=MXZVL*WFP(JJ,N,HM» 

apg=cay* SSI  no 
CONC=CCN*COS(ARG) 

E F S (JJ.N  . H M I =EFS  (JJ»N.*M)-CONf,  *F?0 
ENP  ( JJ.N  ,NM>  *EMR  ( JJ.N.HMJ  -CON *S 01* SIN  ( A^G)  *Fu') 
F*YIJJ,N,mM>=EMY(JJ,N,MH)-C0NC*F6D 
*1  CONTINUE 
80  CONTINUE 
77  CONTINUE 

CALL  AFRT»NK 
E NO 
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PROGRAM  0PGM2H 


CUMMON/SRY 1/  NPAG.TITLE (8) .PATT («) ,RAT 10 

CUMM0N/SRY2/  IU»IG»IP»IND»ISO,ISTART. JA, JB, JC.K,LP,MAXO.MONO,MS. 
X NIX,  NLOOP  »NSD»NSO»NSTR»NUX 

CUMM0N/SRY3/  NOS »NM ( 30 ) .BEAM (30) ,DRFT (30) .AREA (30) .MPS(30) . 

X DMA (30) « AVDA ( 30 ) ,AVBM(30) . ST ( 30 ) . IN C30 ) .SOAR (30) ♦ 

X X (30.20) . Y (30.20) 

CO MM0N/SRY4/  NUT .NON.NOE.XS  (20)  » YS  (20)  . XX  ( 1 9)  . Y Y ( 1 9 > .L)EL(19)  . 

X SNE (19) «CSE (19) 

CUMM0N/SRY5/  VOL .XlP.OST ,PST .BAM ,URT .AIR, AMP  1 . AMP2 »DS ( 30 ) ,SS(30) 
CUMM0N/SRY6/  NOW .NOL .NSP.NST .WINK (5) »SHLT(6> ,SPEE0(6) ,STAT(20) 
CUMMON/SRY7/  NFN.NFNS.FN (6) ,FNS<6) 

CUMMON/SRY8/  NBT A ,NBT AS.NBT A T ,NBT AO, WANG ( 8 ) .COSBET (3) .SINBET(3) 
CUMM0N/SRY9/  NFR .NFRS.OMEN ( 30 ) ,OMENS(30) ,OMlN,OMAX,DUME»OWAX 
CUMMON/SRY 1 0/XZHB  , XZPB  »XZFU»XZVL,KV»KW 
CUMMON/SRYl l/CHROA.THKA.SPNA.FAL.XZFA.CLFA.DEPA.FAY 
CUMMON/SRY 12/CHROB .THKB.SPNB.FBL.XZFtJ.CLFB.OEPB.FBY 
CUMMON/SRY 1 3/GRAV .DEPCAT .SO (6) .RBMST (10) .RBMHT (10) 
C0MM0N/SRYl4/EL,GCB,GYR.GYRT»GM,GMT,GMTS,VCG,RF33,RP3S,RM55 
CUMMON/SRY 15/A26(4»30) ,A62(4,30> ,A46<4,30) ,A64(4,30> ,A66(4,30> 
CUMMON/SRY  16/A22  (30 ) ,A44(30>  »A24<30)  »USR(30)  ,ORR(30) 

CUMMON/SRY 17/ AS Y (30) ,DSY(4,30) , A Y ( 30 ) ,OY (9,30) , ARY (30) .URY(30> 
CUMMON/SRY 18/822 (4,30) ,826(4,30) ,B62<4,30) ,846(4,30) »B64(4,30) , 

X 866(4,30) ,B24<4,30) ,844 (4,30,3) 

COMMON /SR Y 19/OMEGA, UN, PAS (19) ,PVS<19> ,PAR(19) ,PVR<19) 
CUMMON/SRY20/8LUG( 19,19) ,YL0G(19, 19) 

CUMMON/SRY21/KASE (4) ,MIL(4) .CWR] (4) ,CwR2(4) ,WFR<4,30»3> . 

X WN (4,30,3) ,SWR (4,30.3) ,RWS(4,30,3) 

CUMM0N/SRY22/I I »EF5,EMR,EMY»EKR (4 , 30 , 3 ) ,EK Y (4 , 30 , 3 ) 

COMPLEX  II ,EFS (4,30,3) ,EMR (4,30.3) ,EMY (4,30,3) 

END  U F COMMON  DECK 

(M*,KE  ALL  CHANGES  ABOVE  THESE  CAROS) 

CUMMON/ENDCUM/ENDCOM 
C 

DIMENSION  DTMA ( 30 ) 

COMPLEX  EGS ,ENR ,ENY , SEMR (4,30,3) 

COMMON  /PR23B/  EGS(4,30,3) ,ENR(4,30. 3) ,ENY (4,30,3) 

COMPLEX  CZ IR  , COSBK  , SINBKS  , E8KSP»EBKSM,EX»EXPL  , EXMN  »CZIRS*CZIRH» 

X F4DMP,TA,CZIS*CZIY,SZIR,IKS,CEXPA,CEXPB,CEXMA,CEXMB,PA,PB, 

X ENDA,EKDB 

5 FORMAT  (1H1,15A6,18X,A6,I4) 

7 FURMAT (F15.4,8F10.6) 

6 FORMAT (1H0,5X,*EXCITING  FORCE,  MuMENTS  AND  PHASES*//// 

X 6X , * THE  SWAY  FORCE  IS  SCALED  BY  * , bHM*G* A , // 

X 6X,*THE  ROLL  AND  YAW  MOMENTS  ARE  SCALED  BY  *,6HM*G*A.// 

X 6X ♦ 7H*MOMEN T , * OENOTES  THE  MOMENT  SCALED  8Y  *, 

X 20HM*G* A* (WAVE  NUMBER).// 

X 6X,*M  IS  THE  displaced  MASS.*// 

X 6X,*G  IS  THE  ACCELERATION  DUE  TO  GRAVITY.*// 

X 6X , * A IS  THE  WAVE  AMPLITUDE.*// 

X 6X,*L  IS  THE  DISTANCE  BETWEEN  PERPENDICULARS.*//// 
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X bX « -FN  IS  THE  F ROUUE  NUMBER  » (FORWARD  SPEED) /SORT (G*»4H*L) .// 

X bX,*BETA  IS  THE  WAVE  HEADING  ANGLE  IN  DEGREES.*/ 

X 6X « *BET  A * 180.  FOR  HEAD  SEAS.*// 

X 6X,*0MEGA  IS  THE  ENCOUNTER  FREUUENCY  NON-OlMtNSIONALIZED*. 

X * BY  SORT (G/L) .*// 

X 6X « *THE  PHASE  ANGLE  IS  MEASURED  IN  DEGREES  WITH  RESPECT*/ 

X bX»*TO  THE  WAVE  AT  THE  CO.  •// 

X 6X . *L/L AM  = L/ (WAVE  LENGTH).*// 

X bX . *F OR  FOLLOWING  SEAS  THE  FREQUENCY  DOMAIN  IS  DIVIDED  INTO*. 

X * THREE*/6X.*REGI0NS  SEPARATED  BY  TWO  CRITICAL  SWR.  DENOTED  *. 

X *CWR 1 AND  CWR2.*> 

8 FORMAT ( 1H0.5X.*EXCITING  FORCE.  MOMENTS  AND  PHASES*/ 

X bX  » *FN  = *.F5,3/6X.*BETA  = *,F6.1// 

X * REGION  *.I1«*  CWR1  = *.F9.4»*  CwR2  = * .F9.4/6X . *OMEGA* .5X , 

X *L/LAM*. 4X»*SF0RCE*.5X. -PHASE* »3X.*RMOMENT*.5X. -PHASE* *3X. 

X 7H*M0MENT.3X.*YM0MENT*»5X.*PHASE*»3X.7H*M0MENT.5X.*LAM/L*> 

9 FORMAT ( 1H0.5X.*EXCITING  FORCE.  MOMENTS  AND  PHASES*/ 

X 6X.*FN  = *.F5.3/6X»*BETA  = *.Fb.l// 

X 6X,*0MEGA*,5X.*L/LAM*.4X.«SF0RCE*.bX.*PHASE*.3X.*RMUMENT*. 

X 5X , 5HPH ASE , 3X . 7H*MOMENT ♦ 3X . 7HYMOMENT .5X .5HPHASE . 3X . 7H*M0MENT , 

X 5X.5HLAK/L) 

10  FORMAT ( (1X,F10.A.F10.4.F10.5»F10.3,2(F10.5.F10.3.F10.5) .F10.A) ) 

13  FORMAT ( 1H0,5X,*ADDED  MASS  C0EFFICIENTS»/6X.*FN  = *,F5.3// 

X 10X.*0MEoA*.7X, 3HA22 , 3X ♦ 7HA24=A42 . 7X  » 3HA2b »7X»3HAb2*7X»3HA44. 

X 4X. 3HA4b.7X.3HAb4.7X.3HAbb) 

X 3HA66) 

150  FORMAT ( 1HC .80X.23HHULL  SEPARATION/BEAM  = F7.4) 

212  FORMAT ( 1H0.5X.*FN  = * .F5.3/6X.*BETA  = *»F6.1/10X. 

X *0MEGA»,bX,*SWAY*.SX,*PHASE*.6X.*R0LL*,5X.*PHASE*.7X.*YAW*.SX, 

X *PHASE*.5X,»LAM/L*) 

213  FORMAT  ( <5X .F 1 0 . 3. 3 (F 1 0 ,5.F  1 0 .3)  ,H0 . A ) ) 

214  FORMAT (//6X. -EQUATIONS  OF  MOTION  SOLVED  USING  B44  EXCLUDING  *. 

X *V1SC0US  EFFECTS*) 

215  FURMAT < //bX. -EQUATIONS  OF  MOTION  SOLVED  WITH  CROSS-FLOW  * 

X -VISCOUS  DAMPING  AND  ROLL  WAVE  EXCITING  MOMENT  INCLUDED*) 

410  FORMAT(1H0.5X,*DAMPING  COEFFICIENTS*/bX,*FN  = «,F5.3// 

X bX .5H0MEGA .7X.3HB22.3X. 7HB24=B42  » 7X , 3HB44  « 7X , 3HB66 . 7X , 3HB26 , 

X 7X , 3Hflb2 . 7 X . 3HB4b ♦ 7X.3HB64.6X  »4Hfl44*/35X .6HBE  T A =/ 

X 35X.F6.1/) 

411  FURMAT (lX»Fl0.4»9F10.ft) 

412  FURMAT(1H0.5X. -DAMPING  COEFF ICIENTS»/bX,*FN  = *.F5.3// 

X bX,5HOMEGA,7X.3HB22.3X»7HB24=H42.2(7X.3HB44) » 7X  « 3HBb6 .7X.3HB26. 
X 7X . 3HRb2 . 7X . 3HB4b . 7X , 3HB64  » bX .4HH44*/3 1 X , 2 ( AX . bHBET  A =)/ 

X J1X.2 (AX.F6.1 ) ) 

413  FORMAT (lX.F10.4*10F10.b) 

414  FORMAT ( 1H0.SX.-DAMPING  COEFF IC IENTS*/bX , *FN  = *.F5.3// 

X bX , 5HOMEGA . 7X ♦ 3HB22  » 3X . 7HB24=H42  » 3 < 7X  » 3HB44 ) . 7X . 3HBb6 . 7X . 3HH26 . 
X 7X.3Hflb2.7X.3HB4b.7X .6HB64 .6X .4HB44-/3 1 X , 3 (4X  »6HBE  T A =)/ 

X 31X. 3(4X. Fb. 1) ) 

415  FOHMAT ( 1X.F10.4. 1 lFlO.b) 

500  FORMAT (///5X,*R0LL  AMP  FAILED  TO  CONVERGE  FOR  BETA  = *.Fb.l. 

X * FN  = *,FS.3/bX,*LAST  TWO  VALUtS  = *»E12.5**  AND  *.E12,5.3H***, 
X *CALCULAT ION  CONTINUES*) 

501  FURMAT (///5X, -ITERATION  NOT  USED.  MAX  AMP  = *.E12.5) 

502  FURMAT (5X, -NUMBER  OF  ITERATIONS  =*.I2) 


no 


IF (l.EQ.O)  CALL  PGM 18 
Pl*3. 14159 
SUI=SD ( ISO) 

S02aS01»S0I 

rfact*soi 

IF (MONO. EQ. 2)  RFACT*.5*BEAM (MS) 

IF (IG.NE.3)  GO  TO  29 
KR*0 

NPAG*NPAG«! 

WRITE (6.5)  (PATT(I) .1*1.7) . ( TITLE < I ) . 1=1 ,8) .PATT <8 » .NPAG 
WRITE (6.150)  RATIO 
WRITE (6.214) 

CALL  SOLVE (2.V0L.I.NFN.1.N8TA.1.NFR.RFACT) 

DO  28  JJ=1.NFN 
LMT=MlL< JJ) 

IF (LMT.LE.O)  GO  TO  28 
DO  27  MM=1 .NBT A 
LM4=LMT*4 

IF (55-KR.GE.LM4)  GO  TO  26 
KR=0 

NMAG*NPAG»1 

WRITE (6.5)  (PATT (I) .1=1.7) . ( TITLt ( I ) , 1=1 ,8) .PATT (8 ) .NPAG 
WRITE(6,150>  RATIO 
WRITE (6.214) 

26  WRITE (6.212)  FN< JJ) .WANG(MM) 

WRITE (6.213)  (OMEN (N) .EGS ( JJ.N.MM) ,ENR ( JJ.N.MM) .ENT ( JJ.N.MM) . 
X RWS(JJ.N.MM) .N=1.LMT) 

KR=KR.LM4 

27  CONTINUE 

28  CONTINUE 

29  CONTINUE 

DO  83  JJ=1.NFN 
DU  83  N=1,NFR 
83  DT ( JJ.N) =844 ( JJ.N, 1 ) 

ELEL=EL*EL 

FAYEL=FAY/EL 

F8YEL=FBY/EL 

DEPAL=OEPA/EL 

DtPBL=DEPB/EL 

DtPCAL=DEPCAT/EL 

FALP=PST-FAL/EL 

FdLP=PST-FBL/EL 

IF (CLFA.LE.O.  .AND.  CLFB.LE.O.)  GO  TO  399 

CUNA=.5*SPNA*CHRDA*CLFA*FAYEL/ELtL 

C0NB=.5*SPNB*CHRDB»CLFB*F8YEL/ELtL 

DO  80  JJ=1 »NFN 

LMT=MIL( JJ) 

IK (LMT.LE.O)  GO  TO  80 
DU  81  MM=1 .NBT A 
COSB*COSBET (MM) 

SiN8=SIN8ET (MM) 

DU  81  N*1,LMT 
CAY=WN( JJ.N.MM) 

CAYB=CAY*SINB 


111 


non 


SYA=SIN(CAYB«*FAYEL) 

SYB=SIN(CAYB*F8YEL) 

CAY0«CAY*COS8 
WLA=CAYB*FALP 
WLB=CAYB*FBLP 
CUN=WFR( JJ.N.MM)*FN( JJ) 

FtXA=CON*EXP(-CAY«DEPAL)*CONA*SYA 
FtXB»CON«EXP  (-CAY*DEPBL>  *CONB«*SYB 
B1  EMR< JJ.N,MM)*EMR(JJ,N.MM)-FEXA*CEXP(II*WLA)-FEXB*CEXK(II*WLR> 
00  CONTINUE 

399  IF (XZFO*XZFA»XZFB.LE.O.)  GO  TO  73 
.21221=2/(3*PI) 

.003=A/EL*EHPIRICAL  factor 
CON  1 = (.005*EL >*. 21221 *XZFO/EL 
CUNT=.001061*XZFo 
CUNS=CONT/VOL 
CUN=2./(3.*PI*ELEL*EL) 

CONEAsCON*XZFA*FAYEL*CHRDA«SPNA 

CONEB3C0N*XZFH*FBYEL*CHR0B*SPNR 

CUNDA=CONEA*FAYEL/VOL 

cundb=co  ;eb*fbyel/vol 

DU  70  JJ= 1 »NFN 
LMTaMIL ( JJ) 

IF (LMT.LE.O)  GO  TO  70 
DU  71  MM=1.NBTA 
I LOOP=- 1 

IF (IG.NE.3)  GO  TO  76 
KR  = 0 

NPAG=NPAG*1 

WRITE (6.5)  (PATT< I) ,1=1 .7) ♦ (TITLE(I) .1=1,8) ,PATT(M) ,NPAO 

WR1TE<6,150>  RATIO 

WRITE(6,215> 

LM4=LMT*4 
70  DU  74  N=1.LMT 
74  StMR (N) -EMR (JJ.N.MM) 

555  ILU0P=IL00P*1 

CALL  SOLVE (2.V0L.JJ.JJ.MM.MM.1 .LMT.RFACT) 

IF (IG.NE.3)  GO  TO  62 

IF (55-KR.GE.LM4)  GO  TO  79 

K9-0 

NPAG=NPAG»1 

WRITE (6.5)  (PATT (I) .1  = 1 .7) . (TITLt (I) » 1 = 1 ,0) ,PATT (0) « NP AG 
W*ITE(6.150)  RATIO 
WRITE (6.215) 

79  WRITE (6.212)  FN ( JJ) . WANG ( MM) 

WRITE (6.213)  (OMEN (N) ,EGS( JJ.N.MM) ,ENR ( JJ.N.MM) .ENY ( JJ.N.MM) . 
X RWS (JJ.N.MM) «N=1 .NFR) 

KR=KR*LM4 

02  IF (NLOOP.LE.O)  GO  TO  21 
DU  54  N=1.LMT 

54  D IMA (N) =REAL (E NR ( JJ.N.MM) ) 

ENRMXL=ENRMX 

ENRMX=XMAX(LMT.DTMA) 

IF (ENHMX.GT..01)  GO  TO  556 
WRITE (6.501 ) ENRMX 
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ILOOP«NL  OOP 
GO  TO  21 

556  IFCILOOP  .LE.O)  GO  TO  21 

IFCABSC1  .-ENRMX/ENRMXLI  .LE..1)  GO  TO  71 
C COMPUTE  CROSS-FICW  VISCOUS  DAMPING  AMO  MAVE-EXCI TING  MOMENT 
C 

21  DO  75  N* 1* LMT 
Gxl»  OMEN CNI 
CAY»HN(J J.NtMMI 
ONEG«MFR ( JJ  « N* MM ) 

MDH*OMEG/GX  I 
MM  = OMEG* GXI 
COS  8* COS  BET (MM) 

SIN8*  S IN  BE  T (MNI 

EKD  = EXPt  -CAY*OEPCAU 

EKOMaHDW  *EK  0 

COS  BK* II *CAY*COSB 

SINBKS=I  I*SDI*CAY*SINB 

EBKSPaCE  XPCSINBKS) 

E BKSM=CE XPC-SINBKS) 

TA*EGSCJ J,N,NM> 

ZRSiREAL  ( T A ) 

ZISaAIMAGCT A 1/5 7. 295 7 79 
CZIS=ZRS  *CEXP(- 1 1* Z I S » 

T A*ENR (J J.N.MNJ 
ZRR=RE AL  (TA) 

ZIRsAIMA  GCT A 1/5 7. 295779 
CZIR=ZRR*CEXP(- II*ZIR»/RFACT 
TA=ENY(J J.N.MMI 
ZRY  = REAL  <TA> 

ZIY=AIMAGCTAI/5 7.295779 
CZI Y=ZRY  *CEXPC-  I I*Z I Y > 

CZIr7S  = II  *CZ  IR 
SZI R*SOl *CZ  IR 
B440MP=Q . 

F <*OMP=  (0  . ,0  . ) 

DO  72  K= l.NOS 
XIP*PST- SSCKI 
0 = D M A (K) 

02=-AVDA  ( K ) 

002=0*02 
AV8= AVBM (K) 

DST  = OS  <K  ) 

EX=CEXP< X IP*COSBK) 

EXPL=EX*  EBKSP 
EXMN»EX*  E8KSM 

IFCOEPCAT.LE.OJ  EKDM= WO W*E XP C-C AY  * ARE A (K ) *ORF T (K ) ) 

ZRSO  = CAB  SCSZIR*EKCM*EXPU 
ZRPD  = CABS  <SZIR-EKOW*EXMN> 

EHX=EXP( -CAY*D2» 

NX=  MDW*E HX 

CZIRM=CZ IS*XIP*CZIY*02*CZIR 
Y1S0=CA8S(I I*CZIRH-HX*EXPU 
Y1P0=CABSCII*CZIRH-MX*EXMN) 

B44DMP*B44OMPMS02*AV8*  CZRSO*ZRPD> ♦D02*D2* C Y1 SO* YlPO) I *OST 
F40MP*F4  0MP*  Cl I*AV8*S0I*  CZRSO*EXPL-ZRPO*EXMN> - 
X 002*  CY 1S0*EXPL*Y1P0*E  XMNJ ) *OST 
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72  CONTINUE 

E*OA=EXP  <-CAY*DEPAL>  «CEXP  <COSBK*F ALP) 

EM)B«EXP (-CAY*DEPBL) *CEXP (COSBK*F  BLP) 

Cl»WO**EKDA 

C2=WD**EKDB 

I*S=II*CAY«SINB 

pa=iks*fayel 

PB=IKS*FBYEL 

CtXPA=CEXP(PA) 

CtXMAaCEXP (-PA) 

CtXPBsCEXP(PB) 

CtXMBaCEXP(-PB) 

ZSORDAaCABS (FAYEL*CZIR»C1»CEXPA) 

ZPORDA=CABS<FAYEL*CZIR-Cl*CEXMA) 

ZSURDB=CABS(FBYEL*CZIR*C£»CEXPB> 

ZPURUB=CABS (FBYEL*CZIR-C2»CEXMB) 

B44( JJ.N.MM) =DY  < JJ.N) ♦C0NS#GXI»B44DMP.GXI*(C0NDA*(ZSURDA*ZP0WDA> 
X ♦CONDB* ( ZSURUB^ZPURDB ) ) 

EMW< JJ.N.MM) =SEMR(N) ♦WW*C0NT*EKD*F4DMP*I I**W*CONEA*EKDA* 

X ( ZSORUA»CEXPA-ZPORDA*CEXMA ) ♦ 1 I *WW*C0NEH*EKDB* ( ZSORUB*CEXPB- 
X ZPORDB*CEXMB> 

75  CUNTINUE 

IF (NLOOP.GT. ILOOP)  GO  TO  555 
WB I TE ( 6*500 ) WANG (MM) ,FN(JJ) .ENRMXL .ENRMX 
71  CUNTINUE 
70  CUNTINUE 

73  OU  85  JJ=1.NFN 
lmt  =MIL 1 JJ) 

IF (LMT.LE.O)  GO  TO  85 
DU  84  MM= 1 »NBT A 
DU  84  N=1»LMT 

EFS( JJ.N.MM)=EFS(JJ.N,MM)/VOL 
EMR( JJ,N.MM)=EMR< JJ,N.MM)/VOL 
EMY (JJ.N.MM) =EMY (JJ.N.MM) /VOL 
ZRS=CABS(EFS(JJ»N»MM) ) 

ZWR=CA8S(EMR( JJ.N.MM) ) 

ZWY=CABS(EMY(JJ.N,MM) ) 

ZIS=0. 

IF (ZRS.GT.O.) 

X Z I S=-57.295779«AT AN2<AIMAG<EFS< JJ.N.MM) ) . REAL (EFS  < JJ.N.MM) ) ) 

IF (Z1S.GT.90.)  ZIS=ZlS-360. 

Z1R=0. 

IF (ZRR.GT.O.) 

X Z I R=-57 «295779*ATAN2  < A I MAG  <EMR  < JJ.N.MM) ) .REAL (EMR (JJ.N.MM) ) ) 

IF  (ZIP. LT. -270.)  ZIR«ZIRO60. 

Z I Y = 0 • 

IF (ZRY.GT .0.) 

X ZlY  = -57.295779*ATAN2 (AIMAG (EMY  < JJ.N.MM) ) .REAL (EMY  < JJ.N.MM) ) ) 

IF <ZlY.LT.-270.)  Z I Y=Z I YO60 . 

EGS (JJ.N.MM) =CMPLX (ZRS.ZIS) 

EPH (JJ.N.MM) =CMPLX (ZRR.ZIR) 

ENY (JJ.N.MM) sCMPLX (ZRY.ZIY) 

CAY=WN( JJ.N.MM) 

E*R (JJ.N.MM) *2RR/CAY 
E*Y (JJ.N.MM) =ZRY/CAY 

84  CONTINUE 

85  CUNTINUE 
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If  ( IG.LE.O)  GO  TO  77 
IF  ( IG.EQ.1)  GO  TO  111 
OU  95  JJ=1»NFN 
NHAG=NPAG»1 

WRITE (6*5)  (PATT(I) ,1*1,7) « (TITLt(I) ,1=1,8) *PATT (8 ) ,NPAG 
WR I TE ( 6 » 150 ) RATIO 
WRITE (6, 13)  FN(JJ) 

WRITE (6*7)  (OMEN(N) »A22(N) »A24(N) *A2b(JJ,N) ,A62(JJ.N) ,A44(N>  » 

X A46  ( JJ»N)  » A64  ( JJ  *N)  *A66(JJ*N)  ,N=1,NFR) 

GO  TO (401 *402* AO 3)  NOT  A 

401  WR  I TE  ( 6 ,4 1 0 ) FN(JJ) ,WANG<1 > 

WRITE (6*411)  (OMEN (N) ,B22(JJ»N) ,fc>24(JJ*N) ,B44(JJ,N*1) * 

X B66 ( JJ«N) »B26(JJ*N) *B62(JJ*N) ,B46(JJ»N) ,B64( JJ*N) «L)Y(JJ*N) < 

X N*1 *NFR) 

GO  TO  404 

402  WRITE (6*412)  FN ( JJ) * WANG ( 1 ) * WANG ( 2) 

WRITE (6,413)  (OMEN (N) ,B22(JJ,N) ,B24(JJ,N) , (B44(JJ,N.l) ,1=1,2) * 
X B66 ( JJ*N) *B26(JJ*N) ,B62(JJ»N) ,B46(JJ»N) ,B64(JJ,N) ,UY(JJ,N) » 

X N* 1 ,NFR ) 

GO  TO  404 

403  WRITE (6*414)  FN ( JJ) * ( WANG ( I > * I = 1 ♦ 3 ) 

WRITE (6,415)  (OMEN (N) ,B22( JJ*N) ,B24 ( JJ*N) , <844 ( JJ,N, I ) * 1 = 1 ,3) * 
X B66 ( JJ  *N ) ,826 ( JJ*N) »B62(JJ,N) ,B46(JJ,N) ,B64(JJ,N) ,DY(JJ,N) , 

X N=1 ,NFR) 

404  CONTINUE 
95  CONTINUE 

111  NPAG*NPAG»1 

WRITE (6,5)  (PATT(I) ,1*1,7) , (TITLt(J) , J=1 ,8) ,PATT (8) ,NPAb 
WR I TE (6,150 ) RATIO 
WRITE (6,6) 

nrag*npag»i 

WRITE (6,5)  ( PATT ( I ) ,1=1 ,7) , ( TITLE (J) , J=1 ,8) ,PATT (8) »NPAG 

WR I TE ( 6, 150 ) RATIO 

KR=0 

DO  104  MM=1,N8TA 
DO  100  JJ=1 ,NFN 
LMT=MIL ( JJ) 

IF (LMT.LE.O)  GO  TO  100 
LM4=LMT»4 

IF (55-KR.GE.LM4)  GO  TO  103 
KR=0 

NPAG=NPAG+1 

WRITE (6,5)  (PATT ( I ) ,1  = 1 ,7)  , ( TITLt ( J) , J= 1 , 8 ) , P ATT ( 8 ) ,NPAO 
WRl  TE (6, 150)  RATIO 

103  IF (KASE(JJ) .EQ.O)  GO  TO  101 

WRITE (6,8)  FN(JJ) , WANG (MM) ,KASE(JJ) ,CWR1 (JJ) ,CWR2(JJ) 

GO  TO  102 

101  WRITE (6,9)  FN ( JJ) ,WANG (MM) 

102  WRITE (6, 10)  (OMEN(N)  ,SWR ( JJ,N,MM) ,EG5 ( JJ,N,MM) »ENR ( JJ,N,MM)  , 

X EKR(JJ,N,MM) ,ENY ( JJ,N,MM) ,£KY ( JJ,N,MM) ,RWS< JJ,N,MM) ,N=1,LMT) 

KH=KR*LM4 
100  CONTINUE 

104  CONTINUE 
77  CONTINUE 

CALL  AERTRNK 
END 
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o o n n <”><"> 


PROGRAM  UPGM3 


common /shy l / npag, title (8) .patt («) ♦ ratio 

COMMON/SR Y2/  ID* IG ♦ IP  * IND» I SO* I ST ART » JA » JB » JC * K , LP .MAXD ,MONO . MS , 
X N I X * NLOOP *NSO *NSO « NSTR * NUX 

COMMON /SR Y 3/  NOS»NM<30) *BEAM(30) *ORFT (30) * AREA (30) *MPS(30) , 

X DMA (30) • AVDA ( 30 ) .AVBM<30) » ST ( 30 ) . I N ( 30 ) .SOAR (30) . 

x X (30.20) ,Y(30»20> 

COMMON/SRY4/  NUT  *NON*NOE»XS (20) . YS (20 ) . XX ( 19 ) . YY < 19 ) »OEL ( 19 ) . 

X SNE(19> ,CSE(19) 

COMMON /SR YS/  VOL.XlP.DST.PST .BAM *DRT ♦ A I R , AMP1 , AMP2 , DS ( 30 ) ,SS<30) 
COMM0N/SRY6/  NOW.NOL.NSP.NST .WINK (5)  .SHLT(6)  « SPEED  ( 6 ) *STAT(2U) 
COMMON/SR Y7 / NFN,NFNS.FN(6) »FNS(6) 

COMMON/SR Y8/  NBTA«NBTAS»NBTAT .NBT AQ » WANG ( B ) .COSBET (3) .S INBET (3) 
COMMON/SR Y 9/  NFR.NFRS.OMEN (30) .OMENS(30) . OMIN . UMAX .DOME ,OWAX 
COMMON/SRYl 0/XZHB,XZPB,XZFO.XZVL»KV»KW 
COMMON/SRYl l/CHROA.THKA.SPNA.FAL.XZFA.CLFA.DEPA.FAY 
COMMON/SR Yl2/CHR0B.THKB.SPNB.FBL.XZFb.CLFB»DEPB.FBY 
COMMON/SR Y 13/GR A V .OEPCAT .SD (6) .RBMST (10) .RBMHT (10) 

COMMON/SR Y 14/EL, GCH.GYR.GYRT.GM, GMT. GMTS.VCG.RF33.RP35.RM55 
COMMON/SRY 15/A26 (A. 30) ,A62<4,30) »A46<4,30) .A64(4.30) »A66(4*30) 
COMMON /SPY 16/A22 (30) ,A44<30) ,A24(30> .OSR(30) »ORR(30) 

COMMON/SRYl 7/AS Y (30) .DSY (4.30),AY(30),UY<4,30) .ARY (30) .DRY (30) 
COMMON/SR Y 18/822 (4,30)  ,B26<4,30>  .862(4,30)  ,846(4,30)  ,864(4,30)  . 

X B66 ( A ♦ 30 ) ,B24 (A . 30 ) .844(4,30,3) 

COMMON/SR Y 19/OMEGA. UN. PAS (19) .PVSI19) .PAR (19) ,PVR<19> 

COMMON/SR Y20/BLOG( 19,19) ,YL0G(19, 19) 

COMMON/SRY21  /KASE  (4)  .MIL  (A)  ,CWR1  (4)  ,CWR2<4)  ,WFR (4,30,3)  » 

X WN (4,30,3) ,SWR (4,30.3) ,RWS (4,30,3) 

COMMON/SRY22/II,EFS,EMR,EMY*EKP(4,30,3) ,EKY (4.30,3) 

COMPLEX  II.EFS(4,30,3) ,EMR (4,30.3) ,EMY (4,30.3) 


END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 


common/endcom/enucum 

c 

complex  egs.enr.eny 

common  /PR23B/  EGS (4,30,3) ,ENR (4.30.3) *ENY (4,30,3) 

1 format ( iho»sx,*mot ion  amplitudes  and  phases*//// 

X 6X,*THE  SWAY  AMPLITUDE  IS  SCALtU  BY  A.*// 

X 6X,*THE  ROLL  AMPLITUDE  IS  SCALED  BY  *,6H2*A/H.// 

X 6X,*THE  YAW  AMPLITUDE  IS  SCALEU  HY  *,6H2*A/L.// 

X 6X,5H*R0LL,*  DENOTES  ROLL  AMPLlTUUt  SCALED  BY  *, 

X 4H  A»,*(WAVE  NUMBER).*// 

X 6X , 4H*  Y A W , * DENOTES  YAW  AMPLITUDE  SCALtU  BY  *, 

X lbHA* ( WAVE  NUMBER).// 

X 6X . * A IS  THE  WAVE  AMPLITUDE.*// 

X 6X,*B  IS  THE  TOTAL  HULL  SEPARATION  FOR  TWIN-HULL  SHIPS.*// 

X 6X,*B  IS  THE  BEAM  AT  MIDSHIP  FOR  MONO-HULL  SHIPS.*// 

X 6X**L  IS  THE  DISTANCE  BETWEEN  PERPENDICULARS.*//// 

X 6X,*FN  IS  THE  FROUDE  NUMBER  = (FORWARD  SPEED) /SORT (G*,4H*L ) ./) 

2 FORMAT (6X,*BETA  IS  THE  WAVE  HEADING  ANGLE  IN  DEGREES.*/ 

X 6X , *BE T A = 180 • FOR  HEAD  SEAS.*// 
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X 6X.*0MEGA  is  THE  ENCOUNTER  FREQUENCY  NON-DIMENSIONALIZED*. 

X * BY  SORT (G/L) .*// 

X 6X « * THE  PHASE  ANGLE  IS  MEASURED  IN  OEGREES  WITH  RESPECT  * 
x * TO  THE  WAVE  AT  THE  C«.  «// 

X 6X.*L/LAM  = L/IWAVE  LENGTH).*// 

X 6 X « *F  OR  FOLLOWING  SEAS  THE  FREQUENCY  IS  UlVIOED  INTU  THREE*/ 

X feX,»PEOIONS  SEPARATED  BY  TWO  CRITICAL  SWR.  OENOTEO  CWR1  AND  * 

X *CwR2.«) 

5 FURMAT  ( 1H1 . 15A6. 18X.A6. IA) 

8 FURMAT < 1H0.5X.28HMOTION  AMPLITUDES  AND  PHASES/6X. 

X SHFN  = .FS.3/6X.  7HBE  T A = .F6.1// 

1H  REGION  II. 8H  CWR 1 = FB.A.8H  CWR2  = F8.A/6X.5HOMEGA.7X.3HSWR.5X, 
XH  SWAY.5X.  5HPHASE  *6X  * AHROLL  * 5X  . 5HPHASE  » AX  . SH*RULL  *5X  .3HYAW.7X. 

X ShPhASE  »5X»AH*YAW*5X .5HLAM/L ) 

9 FuRMAT ( 1 HO  * 5X * *MUT ION  AMPLITUDES  AND  PHASES*/ 

X 6X,*FN  = *.F5.3/6X.*BETA  = *,Fb.l//6X,  5H 

X0MEGA.5X.5HL/L AM, 6X.AHSWAY.5X.5HPHASE.6X, AHROLL. 5X.5HPHASE.5X, 

X 5H*R0LL  .7X.3HYAw.5X.  5HPHASE  * 6X  , AH* Y A W » 5X  »5HL  AM/L  ) 

10  FORMAT ( (1X,2F10.A,F10.5,F10.3.2(F10.5,F10.3,F10.5) .F10.A) ) 

ISO  FORMAT ( 1H0.80X.23HHULL  SEPARATION/BEAM  = F7.A) 

I F ( 1 .EQ.O)  CALL  PGM1B 
PF  ACT  = SD ( I SO ! 

IF (M0NC.EQ.2)  RF ACT* ,S*BEAM ( MS ) 

CALL  SOLVE (3, 1 . .1 .NFN.l .NBTA.l .NFR.RFACT) 

DU  20  JJ=1,NFN 
LMT=MIL ( JJ> 

IF(LMT.LE.O)  GO  TO  20 

DO  30  N=1.LMT 

DO  30  MM=1,NBTA 

£FS ( JJ *N*MM) *EGS ( JJ.N.MM) 

EMR  1 JJ,N»  HM)=ENR  ( JJ.N.MM) 

EMY IJJ  N .MM) =ENY (JJ.N.MM) 

30  CONTINUE 
20  CUNTINUE 
NPAG*NPAG*1 

WRITE (6.5)  (PATT(I) .1*1.7) . (TITLE (J) .0*1.8) .PATT (8) , NPAG 

WRITE(6.i50)RATlO 

WRITE (6*1) 

WRI TE (6.2) 

KR*0 

NPAG*NPAG*1 

WRITE (6.5)  (PATT ( I > , 1*1 »7) . ( TITLE ( J) . J*1 ,8) .PATT (8) .NPAG 
WRITE(6»150) RATIO 
DU  AA  MM= 1 .NBTA 
DU  AO  JJ*1.NFN 
LMT*MIL (JJ) 

IF(LMT.LE.O)  GO  TO  AO 
LMA=LMT*A 

IF( (55-KR) .GE.LMA)  GO  TO  A3 
KR*0 

NPAG«NPAG»1 

WRITE (6.5)  (PATT (I) .1*1.7) » (TITLE (J) ,J*1 .8) .PATT (8) .NPAG 
WRITE(6.150)RATIO 
A3  IF (KASE( JJ) .EQ.O)  GO  TO  Al 

WRITE (6.8)  FN( JJ) .WANG (MM) .KASE(JJ) .CWR1 (JJ) .CWR2(JJ) 
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OD 


GU  TO  4? 

41  WRITE ( fc>  ♦ 9 ) FN(JJ)  «WANG(MM) 

4?  WRITE (G. 10)  (OMEN(N)  *SW&< JJ«N,MM)  ,EF  b>  ( J J «N  ,MM  ) , EMW < J J , N , MM ) , 

X t*W  < JJtN.MM) ,EMy < JJ.N»MM)  .EKY  < JJ.NfMM) , RWS ( J J « N t MM ) »N= 1 ,LMT ) 
Kk  = KR»LM<* 

40  CONTINUE 
44  CONTINUE 

CALL  AERTRN 
E MO 
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SUBROUTINE  SOLVE(IUPT.CON,IFNF,IFNL.IBTAF,IBTAL,IFRF,IFRL.RFACT) 


NPAG*  T I TLE (8) ,PATT(B> .RATIO 

ID,IG,IP.IND,ISD,ISTART»JA, JB, JC,K,LP,MAXD,MONO,MS, 
NIX,NLOOP,NSD,NSO,NSTR»NUX 

NOS.NM ( 30 ) , BEAM (30) ,DRFT(30) , AREA (30) ,MPS(30) , 

DMA (30) « AVDA ( 30 ) ,AVBM(30) ,ST (30 ) , IN (30 > .SOAP (30' . 

X (30.20) *Y (30.20) 

NUT. NON, NOE. XS (20) . YS (20 ) ,XX ( 19) , YY ( 19) ,0EL(19)  . 

SNE (19) ,CSE(19> 

VOL.XIP.DST.PST.BAH.DRT»AIR,AHP1,AMP2,DS(30) ,SS(30) 
NOW .NOL.NSP.NST .WINK (5) »SHLT<6) ,SPEE0(6) .STAT(20) 
NFN.NFNS.FN (6) .FNS(6) 

NBTA.NBTAS.NBTAT .NBTAQ.WANG (8) .COSBET (3) ,S INBET (3) 
NFR.NFRS.OMEN (30) ,OMENS(30) ,OM IN .UMAX .DOME ,0 WAX 
CUMMON/SRY 10/XZHB,XZPB,XZFO»XZVL»KV»KW 
CUMMON/SRYll/CHRDA.TMKA.SPNA.FAL.XZFA.CLFA.OEPA.FAY 
CUMMON/SRY12/CHROB»THKB.SPNB.FBL.XZFB,CLFB,OEPB,FBY 
CUMMON/SRY 13/GRAV.DEPCAT.SD (6) ,RBMST(10) ,RBHHT(10) 

CUMMON/SRY 14/EL, GCB.GYR.GYRT.GM, GMT ,GMTS»VCG,RF33,RP35,RM5S 
C'UMMCN/SR  Y 15/ A 26  ( A * 30  ) ,A62(4,30>  »A46(4,30>  ,A64(4,30)  ,A66<4,30) 
CUMMON/SRY 1 6/ A22 (30) ,A44(30) ,A24<30) ,DSR(30) ,DRR(30) 

CUMMON/SR Y 1 7/ASY (30) ,DSY (4,30) .AY (30) »OY (4,30) , ARY (30) .DRY (30) 
CUMMON/SRY 18/822(4,30) .826(4,30) .862(4,30) ,846(4,30) ,864(4,30) , 

X 866 (4,30) ,824(4,30) ,844(4,30.3) 

COMMON/SRYl 9/OMEGA , UN, PAS (19) ,PVS(19) ,PAR(19) ,PVR(19) 

CUMMON/SRY 20/BLOG (19,19) ,YL0G(19.19) 

CUMMON/SRY2 1 /KASE (4) ,MIL(4) ,CWRl (4) ,CWR2<4) ,WFR(4.30.3) . 

X WN (4,30,3) ,SWR (4,30,3) ,RWS(4,30,3) 

CUMMON/SRY 22/ 1 1 ,EFS,EMR,EMY ,EKR (4,30,3) ,EKY (4,30.3) 

COMPLEX  1 1 ,EFS (4,30,3) ,EMR(4.30»3) ,EMY (4,30,3) 

END  UF  COMMON  DECK 

(MAKE  ALL  CHANGES  ABOVE  THESE  CARDS) 

cummon/endcom/enocom 
C 

COMPLEX  egs.enr ,eny , ta 

COMMON  /PR23B/  EGS (4,30,3) ,E NR (4,30,3) ,ENY(4,30,3) 

DIMENSION  TOD (6,6) ,R0D(6,6) ,B0D(6,1) ,INDEX(6,3) 

DU  10  JJ* IFNF , IFNL 
LMT=MIL( JJ) 

IF (LMT.LT.IFRF)  GO  TO  10 
IFRLL*IFRL 

IF (LMT.LT. IFRL)  IFRLL-LMT 
DU  20  N=IFRF,IFRLL 
GXI=0MEN(N) 

GX2=GXI*GXI 

A24V=A24 (N) -VCG 

TUD ( 1 , 1 ) =-GX2* ( A22 ( N) ♦ 1 • ) 

TOD ( 1 , 2 ) =-GX2*A24V 
TUD ( 1 , 3 ) =-GX2*A26 ( J J , N ) 

TUD( 1 ,4) =GXI*B22 ( J J »N) 

TUD ( 1 ,5) =GXI*H24 ( JJ,N) 

TOD (1,6) =GX I*B26(JJ,N) 


CUMMON/SRY 1 / 
CUMMON/SR Y2/ 
X 

COMMON/SRY  3/ 
X 
X 

C0MM0N/SRY4/ 

X 

CUMMON/SRY5/ 
CUMM0N/SRY6/ 
COMMON/SRY7/ 
CUMM0N/SRY8/ 
CUMMON/SR Y9/ 
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TOO  ( 2 

1)=-GX2*A24V 

TOO  (2 

2) =-GX2* (A44 (N) ♦GYRT) ♦GMT 

TOO  ( 2 

3) =-GX2*A46 ( JJ»N) 

TOO  ( 2 

4) =GXl*B24 ( JJ.N) 

TOD (2,5) 

DEFINED  IN  BETA  LOOP 

Tol)  (2 

5)  =0. 

TOO  (2 

6) =GXI*H46 ( JJ.N) 

TOO  ( 3 

1 ) =-GX2«A62 ( JJ.N) 

TOO  ( 3 

2) =-GX2«A64 ( JJ.N) 

TOO  ( 3 

3) =-GX2* (A66 ( JJ.N) ♦GYR) 

TOO  (3 

4>=GXI*R62 ( JJ.N) 

TOO  (3 

5 ) =GX I *B64 (JJ.N) 

TOO  (3 

6 ) =GX I *B66 (JJ.N) 

TOO  (4 

1 ) =— TOO (1,4) 

TOO  (4 

2) =-TOD (1,5) 

TOO  (4 

3) =-TOD (1.6) 

TOO  <4 

4 ) =TOD ( 1 , 1 ) 

TOO  (4 

5 ) =TOO (1,2) 

TOO  (4 

6) =TOO (1,3) 

ToO  ( 5 

1 ) =-T00(2.4) 

T OO  ( 5 

2 ) =-TOD (2,5) 

TOO  ( 5 

3) =-TOO (2.6) 

TOO  ( 5 

4 ) =TOU ( 2 . 1 ) 

TOO  (b 

5 ) =TOU ( 2 .2) 

TOO  (5 

6) =TOO (2.3) 

TOO  (6 

1 ) =-TOO (3.4) 

TOO  (6 

?)  = -TOD (3.5) 

TOO  (6 

3) =-TOD (3.6) 

TU0(6 

4 ) = TOO ( 3 . 1 ) 

T OO  ( 6 

5 ) =TOO ( 3 » 2 ) 

TOO  (6 

6) =TOO (3*3) 

OO  45 

I T= 1 ,6 

OO  45 

IR=1  .6 

45  ROOIIT 

, IR) =TOD ( IT, IR) 

Do  30 

MM=  I t)T AF  , IBTAL 

DO  46 

I T= 1 ,b 

DO  46 

IR=1  ,6 

46  TOD< IT, IR)=HOO< IT.IR) 

SA=GXl*H44 ( JJ.N.MM) 

TOO (2,5) =SA 
ToO(5.2)=-SA 
T«=EFS( JJ.N, MM) /CON 
ROD(l,l)=REAL(TA) 

R00(4. I )=AlMAG(TA) 
jtt=EMR ( JJ.N.MM) /CON 
BUD(2,1 >=REAL(TA) 

R00(5,l)=AlMAG(TA) 

T«=EMY ( JJ.N.MM) /CON 
ROD(3»l)=REAL(TA) 

ROU (6*1 ) =AIMAG ( TA) 

CALL  MATINS(T0D.6»6» HOD *1*1  ♦ UTRM « IU,  INDEX) 
It-  (I0.EQ.1)  GO  TO  32 

E F S ( J J,N,MM)  = ( 0 . , 0 . ) 

E-lR  ( JJ,N,MM)  = (0.  ,0.  ) 

E M Y (JJ,N,MM) s (0, ♦ 0 • ) 
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IF (I0PT.E0.2)  GO  TO  32 
EKR(JJ»N»MM)«0. 

E*Y <JJ»N»MM)«0. 

GO  TO  30 
32  SA=BOD(l.l) 

S«=B0D(<*,1) 

ZRS*SQRT (SA*SA*SB»SB> 

ZlS=-57.295779*ATAN3(SB.SA> 

SA=BOD(2.U 

StJ=B00(5.1) 

ZHR=RFACT*SORT (SA*SA*SB*SB) 
ZlR*-57.295779*ATAN3(SBtSA> 
SA=BOO(3»l) 

StJ=BOO<6»I) 

ZRY=.5*SQRT(SA*SA*SB*SB> 

ZI Y=-57.295779*ATAN3(S8»SA> 

IF (ZIS.GT.90.)  ZIS-ZIS-360. 
IF(ZIR.LT.-270.)  ZIR*Z IR*360« 
IF (ZIY.LT.-270.)  ZIY«ZIY060. 
EGS ( *CMPLX (ZRStZIS) 
ENR(JJ,n»MM)=CMPLX(ZRR.ZIR) 
ENY( JJ*N*MM)»CMPLX (ZRY^ZIY) 

IF (IOPT.EQ.2)  GO  TO  30 
CAY=WN( JJ»N*MM) 
E*RUJ.NtMM)=ZRR/(CAY*RFACT) 
E*Y (JJ*N,MM)=2.*ZRY/CAY 
30  CONTINUE 
20  CONTINUE 
10  CONTINUE 
RETURN 
END 


C ****SUBROUT INES  NILS  ANO  OOFCN  NOT  LISTtU— SEE  MOT35  LISTING*#** 

C ****COMMON  BLOCKS  IN  ODFCN  SHOULD  BE  IDENTICAL  TO  THOSE  IN  MAIN.**** 
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SUBROU TINE  Frank 


COMMON/SRYl/  NPAG, TITLE  <8).PATT(B),RATI0 

CUMMON/SPY2/  II).  IG.IP.  IND.  ISO*  I START  » JA,  JH  , )C  . K , LP , MAXD  .MONO  . MS  . 
X MX.NLOOP.NSn.NSO.NSTR.NUX 

COMMON /SPY 3/  NOS.NM<30> .REAM ( 10 ) *ORF T (JO) .ARE  A (30) .MRS (30)  . 

X DMA (30) « A VDA ( 30 ) .AVBM(JO) .ST ( 30 ) , IN ( 30 ) .SOAR (JO)  . 

X X (30.20) .Y (30.20) 

COMMON/SPY4/  NUT.  NON.  NOE.  XS  (20)  . YS ( 20 ) , XX < 19 ) , Y Y < 1 9 ) .DEL ( 1 9 ) . 

X SNE ( 19) .CSE ( 19) 

COMMON /SR YS/  VOL . X IP.OST.PST .HAM , DR T . A I P , AMP  1 , AMR2.DS ( 30) ,SS  < 30  ) 
COMMON/SHY6/  NOw.NOL.NSP.NST .WINN <S> » SHL  T (b> .SREEU(b)  .ST  AT (20 ) 

C UMMON/SH Y 7 / NFN.NF  NS.FN (6) .FNS (G) 

CJMMON/SRY8/  NHT  A,NHT  AS.NRTAJ .NHTAO.WANG (H) .COSHET (3)  .SlNRET (3) 
COMMON /SRY  9/  NFR  ,NF  RS  .OMEN  ( 10  ) ,()MtNS(30)  , OM  I N , OM  AX  , DOME  . OW  AX 
CoMMON/SRY10/XZHH,XZPH.XZFO.XZVL.KV.NW 
COMMON/SRYl  1/CHROA,Thka,SPNA,FAL.XZFA,CLFA,I)EPA,FAY 
CUMMON/SRY  1 2/CHRUR  , TmKH  , SPNH  .FRL  . XZF  H , CLFH  .OF.PH  « Ft)  Y 
COMMON/SR  Y 13/GRAV.UEPCAT  .SL)  (6)  .RHMST  (10)  .RHMHT  (10) 

COMMON/SR Y 14/EL.GCH.GYP.GYRT »GM,GMT .GMTS, VCG.PF  33.PP3b.RMSS 
CUMMON/SRY lS/A2b (4, 30) ,Ab2<4»30) »A4b(4,30> .Ab4(4,30) .Abb (4, 30) 
CUMMON/SRY 1 6/ A22 (30)  .A44(10) , A2A (30)  .DSP (10) .ORP(30) 

COMMON/SRYl 7/ASY ( 30)  .DSY (4.30 ) . A Y ( 30 ) .UY ( 4 , 30 ) . AR Y ( 10 ) . UP Y ( 30 ) 
Common /SPY lrt/R2?(4»30) ,R26<4,10) .Hb2(4,30) ,R4b(4, 10) .Rb4<4,10> , 

X H6b  (4.30)  .R2M4.10)  .844(4,30.3) 

CUMMON/SRY 19/OMEGA, UN, PAS (19) ,PVS ( 1 9 ) .RAP ( 1 9 ) , PVR ( 1 9 ) 

COMMON/ SPY 20 /RLOG ( 19.19) ,YL0G(19, 19) 

COMMON/SR Y21/K A SE (4)  .MIL (4)  .CWPl  (4)  ,C*P2 (4)  ♦ WFP ( 4 , 30 . 3 ) . 

X WN (4 , 30 , 3 ) » SWR (4,30,3) ,RWS(4. 30.3) 

COMMON /SPY 22/ I I . EFS.EMP, EM y.EKP (4,30,3) ,EK Y (4, 30,3) 

COMPLEX  I I ,LFS (4,30, 3) ,EMR(4.30. 3) ,EMY(4,30,3) 

END  OF  COMMON  DECK 

(MAKE  ALL  CHANGES  ArtOVE  THESE  CARDS) 

COMMON /ENDCOM/ENUCUM 
C 

COMPLEX  XU.tKXCU.EKZUY,  IDW.E  TA23S.F  2b.F4.G26.G4, 

X SF26 (4,30,3) ,SG2b(4, 30,3) .SF4 (4,30.3) 

9 FORMAT ( 1H0.SX.31HMATRIX  IS  SINGULAR  FOR  OMEGA  = F7.4) 

C^ONO=l . 

I F ( MONO ,EQ • 2 ) CMUNU=2. 

S AREA = AREA (K) *HEAM (K ) *DPFT (K) 

IMREAM(K)  .LE.  l.E-08)  SAREA  = APtA  (K)  *DPF  T (K  ) #*2 
IMMPS(K)  .NE.  1 ) CALL  FINIT 
DU  10  N= 1 ,NFP 
OMEGA=OMEN (N) 

IJ  '(= OMEGA  IOMEGA 
IOW=I I/OMEGA 

IF  (MPS(K) ,Nt.  l ) GO  TO  12 
DSSA=EKP ( 1 .N, 1 ) 
f)SSH=EKP  (2.N,  1 ) 

DSPA=EKR ( 1 ,N,2) 

DSPH=EKP (2.N.2) 
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IWRA  = EKR<1  »N»  3 ) 

DRRH=EKR (2.N.3) 

GU  TO  17 
12  CALL  PRESS 

It-  ( ID.EO.  1 ) GO  TO  1 1 
WRlTE(b.R)  OMEGA 
Rc  T URN 
II  ()bSA  = 0. 
l)bSB  = 0. 

ObRA=0. 

DbRB  = 0 » 

OHPA=0. 

ORRH  = (). 

DO  20  1 = 1. NON 
CON  = -DEL ( I ) *SNE  ( I ) 

U (MONO.EQ.2)  CON=2.*CON 
ObSA=OSSA*CUN*PAS ( I ) 

0^>SH=USSB*C0M*PV5  ( I ) 

CON=l)EL  ( 1 ) * (XX  ( I ) *CSE  ( I ) ♦YY  ( 1 ) *SNt  ( I ) ) 
If  (MONO.EQ.2)  CON  = 2 . uCON 
ObPA=t)SRA  ♦CUN*PA S ( I > 

DbRB=DSRB ♦CON*PVS ( I ) 

DRRA  = ORRA»CON*PAR  ( I ) 

20  DRRB  = DRRH  ♦CON<*PVR  ( I ) 

If  (MPS(K) .NE.2)  GO  TO  17 
E*W ( 1 * N • 1 ) = 0SSA 
EtvR (2  «N« 1 ) =USSR 
E*R ( 1 ♦ N « 2 ) =USR A 
E«R (2»M»2) =USRH 
E*R(1*NU3)=URRA 
E*R ( 2 « N » 3 ) =ORRH 
17  DbTX=L>ST»XlP 
DbTXX=DSTX«XIP 
A22 (N) =A22 (N) ♦UST^USSA 
AbY  <N) =ASY  <N) ♦USTX*DSSA 
AY (N) =AY (N) ♦OSTXX«OSSA 
A2A ( N ) = A2A ( N ) ♦UST«USRA 
DbR  (N)  =t)SR  (N)  ♦l)ST*USRP 
A*A IN) =AAA  (N)  ♦OST*URRA 
ORR(N)=URR(N) ♦UST*ORRR 
AkY ( N > =ARY (W) ♦USTX*0SPA 
DAY  (N)  =()RY  (N)  ♦OSTX»OSRB 
DO  30  J J= 1 ♦ NFN 
XU=XIP*IDW*FN( JJ) 

CUNbT=0. 

CONSA=0. 

It-  (K.GE.KV  .AM).  K.LE.KW)  GO  TO  90 
CONST=ON*SAREA*XZHH*FN ( JJ) *CMONO 
CUNSA  = XZPH  * CONST 
90  H22(JJ»N)=H22(JJ«N) ♦ DST* (DSSB*CONST ) 
ObY ( JJ.N) =OSY ( JJ»N) ♦ USTXMDSSfUCONST ) 
OY ( JJ.N) =DY ( JJ.N) ♦UbTXX* (OSSB^CONSA) 

It-  (MIL  ( JJ)  .LT.N)  GO  TO  30 
OO  33  MM= 1 . NBT  A 
COSH=COSBET (MM) 
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SlNft  = SINHET (MM) 

*.\)T  = WFR ( JJ.N.MM) 

CAYsrfN (JJ.N.MM) 

WOW=WNT/0MEGA 

EKXCD=CE  HP  ( I I *CAY*XlP*COSB) *OST*CMONO 
If  (MPS(K) .Nt.  1 ) GO  TO  ISO 
F26=SF26 (JJ.N.MM) 

G26=SG26  ( JJ.N.MM) 

F*=SF4 (JJ.N.MM) 

GO  TO  160 
ISO  F 2b= ( 0 . < 0 . ) 

F *♦  = ( 0 • . 0 . ) 

026  = (0.  .0. ) 

G-*  = ( 0 . . 0 . ) 

If  (MONO, ME  • 1 ) GO  TO  32 
1)0  4,1  1 = 1,  NON 

X*I  = XX  ( I ) 

Y Y I = Y Y ( I ) 

EKZOY=CExP  (CAY*  ( YY1-II«XXI*SINR>)  *I)EL  ( 1 ) 

E I A£=-SNE ( I ) 

F I A3  = CSE ( I ) 

E I A23S=  (-ETA3*  I I *E T A2*S I NR > *EK ZDY 

F 2b-F 2b  * E r A2**EK  ZO  Y 

G26=G26  ♦ ETA23S*  (HAS(  I ) *1  I*0VS  (1>  ) 

F4  = F4,  ♦ (XXl*ETA3-YYI*ETA2)*EKZOY 
G-*  = G4*  ♦ ETA23S*  (PAW  ( I ) ♦ I I*PVR  ( I ' ) 

4*  1 CONTINUE 
G26=W0tf»G26 
F **=F  4,*vi(|)^*G4» 

Go  TO  18 

32  00  31  1 = 1. NON 

Y Y 1 = Y Y ( I ) 

XXl=XX ( I ) 

EkZD=EXP  (CAY*YY  1 ) «UEL  ( I ) 

£ I A2  = -SNE ( I ) 

EIA3  = CSE  ( I ) 

CAYYS=CAY°XXl*SlNH 
S i NK  YS=SIN (CAYYS) 

E I AZ  3=  (E  TA2*SINB*COS  (CAYYS)  *ET A3*S I NK YS ) *E KZO 
F26=F 2b  ♦ ETA2*SIN*YS*EKZn 
G26=G26  ♦ F.TA23*  (PAS(  I ) *1  I*PVS(  1 ) ) 

F l*=F<*  * (XXl«»ETA3-YYI«*ETA2>*SINKYS*tKZO 
G4=G4*  ♦ FTA23»  (PAW  ( I ) ♦ I I*PVR  ( I ) > 

31  CONTINUE 
F2b=-l I*F26 
G26= I I *wOW*G26 
F<*=1  1*  <*UW*G4»-F4») 

18  If (MPS(K) ,NE,2)  GO  TO  160 
Sf 26 (JJ.N.MM) =F26 
S"26 ( J J «N • MM ) =G26 
Sf  (JJ.N.MM)  =F  4, 

160  EC  s (JJ.N.MM)  =F.FS  (JJ.N.MM)  ♦ ( F ?6  *G26  ) *EK  XCO 

EMW (JJ.N.MM) =EMW (JJ.N.MM)  ♦ F4*EKXC0 
EMY ( JJ.N.MM) =EMY (JJ.N.MM)  ♦ ( X I P*F 26 ♦ XU*o26 ) *E* XCO 

33  CONTINUE 
30  CONTINUE 
10  CONTINUE 

RtTURN 
E (0 


124 


SUBROUTINE  FINIT 

CUMMON/SRY2/  ID . IG . IP . IND « ISO, I ST ART * JA. JB ♦ JC.K ,LP» MAXD. MONO. MS. 
X N I X .NLOOP .NSO .NSO.NSTR.NUX 

COMMON/ SR YA/  NUT. NON. NOE. XS (20) .YS(20) .XX ( 19) . YY ( 19) .DEL (19) * 

X SNE (19) .CSE (19) 

CUMMON/SR Y20/BLOG (19.19) . YLOG (19.19) 

DIMENSION  X (20 ) .Y(20) 

EQUIVALENCE  (XS.X) . ( YS.Y) 

Pl  = 3. 1415927 
DPNL=0. 

DCNL=0. 

PPL=0. 

PCL=0. 

DU  10  1=1. NON 
XM1=XX(I>-X(1) 

YM1  = YY ( I ) -Y  ( 1 ) 

YP 1 = YY ( I ) .Y  ( 1 ) 

FHR1=.5*ALUG(XM1**2.YM1**2) 

FCR1=.5#AL0G(XM1##2.YP1#*2) 

APR1=ATAN2 (YM1 .XM1 ) 

ACR1=ATAN2 (YP1 ,XM1 ) 

IF (I  ,GE.  MAXD)  GO  TO  30 
IF(YMl  .LT.O.)  APR1=APRU2.«PI 
IF(YP1.GE.  0.)  ACR 1 =-P I 
30  CUNTINUE 

IF (MONO  .EQ.  1)  GO  TO  35 
XPl=XX(I».X(l) 

FPL1».5*AL0G(XP1**2.VM1**2) 

FLL1=.5*AL0G(XP1**2.YPI»*2) 

APL 1 =AT  AN2 ( YM1 , XP1 ) 

ACL  1 =A  TAN2 ( YP 1 , XP1 ) 

35  CUNTINUE 

DU  10  J=1 «NUN 
XM2=XX(1)-X(J*1) 

YM2=YY(I)-Y(J.l) 

YP2=7Y  ( I ) *Y ( J#1 ) 

FPR2=.5*AL0G(XM2**2.YM2**2) 

FCR2=.5*ALOG(XM2##2.YP2#*2) 

APR2=ATAN2(YM2.XM2) 

IF (I  .GE.  MAXD)  GO  TO  20 
Jl 1 = J. 1 

IF (I  .GE.  JI1  .AND.  APR2  .LE.  0.)  APR2*APR2#2.*PI 

IF ( Jl 1 .GT.  MAXD  .AND.  APR2  .LT.  0.)  APR2«APR2*2.*PI 

IZIP=(APR1-APR2) #10000.0 

ZIP=IZIP 

ZIP=ZIP/10000.0 

IF (ZIP  .GT.  PI)  APR1=APR1-2.*PI 
IF (XM2  .GT.  0.)  GO  TO  4 
GO  TO  5 
20  Jl=J*l 

IF ( XM2  .GT.  0.)  GO  TO  4 
IF (Jl  .GT.  I)  GO  TO  6 

C ***#  CARDS  BELOW  ARE  FOR  CONVEX  OR  CONCAVE  TOP  DECK  *** 

IF ( YM2  .LT.  0.)  APR2»APR2.2.#P1 
GU  TO  5 
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c ***•  lARDS  HELD*  ARE  FUR  CUNVEX*FLAT  OP  CONCAVE  ROT  T UM  *** 
h If  (YM2  .GE.  0.)  APR2=APR2-2.*PI 
S It-  (rP2  .LT.  0.  ) GO  TO  4 
ALW2=-PI 
GO  10  3 

4 ACW2=ATAN2<YP2.XM2) 

3 S1MJ=SNE ( I ) *CSE ( J) -SNE ( J) *CSE ( I > 

CIHj=CSE ( I ) *CSE ( J) *SNE ( I ) *SNE ( J) 

SIHjsSNE ( I ) *CSE ( J) *SNE ( J) *CSE ( I ) 

C1P J=CSE ( I ) *CSE ( J> -SNE ( I ) *SNE ( J) 

OPNRrSlMj*  (F  PR  1-FPR2)  *CIMJ*  ( APP1-APW2) 

PRR=CSE ( J) * (XM1*FPR1-YM1*APR1-XM1-XM2*FPR2«YM?*APR2*XM?) *SNE (J) * ( Y 
1 M l *FPR 1 ♦XM1*APR1-YM1-YM2*FPR2-XM2*APW2*YM2) 

UCNR=S  I P J*  (FCR  1 -FCW2  ) *C  I P J*  ( ACR  1 - ACR2  ) 

PCP=CSE  ( J ) * ( XM1*FCR1-YP1«ACR1-XM1-XM2*FCR?»YP?*ACW2*XI32)  *SNE  ( J)  * ( Y 
1 P2*F CR2*XM2*ACR2*YP1-YP1*FCRI-XM1*ACR1-YP2) 

Iy  (MONO  ,EO.  1 ) GO  TO  37 
X^2=XX ( I ) ♦ X ( J* 1 ) 

FRL2=.S*ALOG ( XP2*«2* YM2**2) 

FCL2=.S*AL()G ( XP2**2*YP2**2) 

A^L2=ATAN2( YM2.XP2) 

ACL2=ATAN2(YP2.XP2> 

DPNL=SIPJ* (FPL2-FPL1 ) ♦CIPJ* (APL2-APL1 ) 

P^L  = CSE ( J) * ( XP2*FPL2-YM2*APL2-XP2-XP1*FPL1 ♦ YM 1 * APl 1 ♦ XP 1 ) ♦ SNE ( J ) * ( Y 
1M1*FPL1 ♦XP1»APL1 ♦YM2-YM2*FPL2-XP2*APL2-YM1 ) 
nCNL=SlMj* (FCL2-FCLI ) *C I M J*  < ACL2-ACL 1 ) 

PCL=CSE ( J) * (XP2*FCL2-YP2*ACL2-XP2-XP1*KCL1»YP1*ACL1*XP1 ) *SNE < J) * ( Y 
1P2*FCL2*XP2*ACL2-YP2-YP1*FCL1-X°1*ACl1*YP1 ) 

37  CONTINUE 

Plug ( I . J) =OPNR-UPNL-DCNR*nCNL 
YlOG  ( I * J)  =P-iR-PPL-PCR*PCL 
IF < J.EQ.NON)  GO  TO  10 
X 4 l = XM2 
Y M 1 = Y M 2 
F MR  1 =F  PR2 
FLR1=FCR2 

C ****  NEXT  CARO  HANDLES  ANGLE  DIFFERENCE  ACROSS  MAXI)  PUlNT  **** 

I y (I  .LT.  MAXI)  .AND.  ( J*  I ) .Eu.  MAXO  .AND.  APR2  .LT.  0.)  APW2=APR2 
1*  2 . *P I 
ARR 1 = APR2 
ALR 1 = ACR2 
YH1=YP2 

Iy (MONO  .ED.  1 ) GO  TO  10 
XR1=XP2 
FRL1=FPL2 
FCL 1 =F  CL2 
ARL1=APL2 
ACL l = ACL2 
10  CONTINUE 
Rt  TURN 
END 
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SUBROUTINE  PRESS 

CUMMON/SRY2/  ID.1G.1P. 1ND, ISO. ISTART. JA, JB» JC.K.LP.MAXD.MONO.MS. 

X NIX,NLOOP,NSD.NSO,NSTR.NUX 

CUMMON/SRY4/  NUT. NON. NOE. XS< 20) . YS ( 20 ) , XX ( 19 ) . YY ( 19 ) .DEL (19) . 

X SNE (19) »CSE (19) 

COMMON/ SR Y5/  VOL , X IP .DST .PST , BAM ,URT , A I R , AMP  1 , AMP2 ,OS ( 30 ) ,SS(30) 
COMMON/SR Y 1 9 /OMEGA . UN , PAS ( 1 9 ) ,PVS<19> .PAR (19) .PVR (19) 
CUMMON/SRY20/BLOG( 19, 19) ,YLOO< 19, 19) 

DIMENSION  CON (38,2) ,CT (38,38) .SOUR (19,19) ,*AVE (19,19) 

DIMENSION  INDEX (38,3) 

DIMENSION  X ( 20 ) » Y ( 20 ) 

EUUI VALENCE  (XS.X) , ( YS.Y) 

DPL=0. 

PPL=0. 

0*L=0. 

P*L=0. 

DU  10  1=1, NON 
Nl=NON*I 
CUN ( 1 , 1 ) =0  « 0 
CUN(I,2)=0.0 
SN=SNE(I) 

CUN (NI , 1 ) =-OMEGA*SN 

CUN(NI,2)»0MEGA*(XX(I)*CSE<I>*YY<I)*SN> 

22  XR 1 =UN* ( XX ( I ) -X ( 1 ) ) 

YR1=-UN* (YY ( I ) ♦ Y ( 1 ) ) 

CALL  DAVID(XR1 ,YR1 ,EJ1 .CXR1 ,SXRl ,RAR1 »RBR1 ,CR1 ,SRl ) 

IE (MONO  .EO.  1 ) GO  TO  37 
XL  1 =UN* ( XX ( I ) +X  ( 1 ) ) 

YLl=YRl 

CALL  OAVlDlXLl ,YL1 ,EJl ,CXL1 ,SXL1 ,RALl ,RBL1 ,CL1 ,SLl ) 

37  CUNTINUE 

DU  10  J= 1 , NUN 
NJ=NON«-J 

S1PJ=SNE<I)*CSE(J)*SNE<J)*CSE(I) 

C1PJ=CSE ( I ) *CSE ( J) -SNE ( I ) *SNE ( J) 

XK2=UN* (XX(I)-X(J*1) ) 

YR2»-UN*(YY(I)*Y<J*1>) 

CALL  OAvID(XR2*YR2»EJ2»CXR2»SXR2 » RAR2 ,RBR2 »CR2 ,SR2 ) 
DPR=2.*(SIPJ*(CR1-CR2)-CIPJ»(SR1-SR2)  ) 

PPR=2./UN* (SNE ( J) • (RAR1-RAR2) ♦CSfc ( J) * (RBR1-RBR2) ) 
DWR=6.2831853*(EJ2*(SXR2*CIPJ-CXR2*SIPJ)-EJ1*(SXR1*CIPJ-CXR1*SIPJ> 
1) 

P*R=6.2831 853/UN* (EJ1*(SXR1*CSE(J)-CXR1*SNE<J> ) -E J2*  < SXR2*CSE ( J)  - 
1CXR2*SNE ( J) ) ) 

IF (MONO  .EQ.  1)  GO  TO  38 
SIMJ=SNE  < I ) *CSE ( J) -SNE ( J) *CSE ( I ) 

CiMj=CSE ( I ) *CSE ( J) *SNE ( I ) *SNE ( J) 

XL2=UN* (XX ( I ) «X ( J«1 ) ) 

YL2= YR2 

CALL  DAVIO (XL2.YL2»EJ2.CXL2»SXL2.RAL2»RBL2,CL2,SL2) 
DPL=2.*(CIMJ*(SL1-SL2)-SIMJ*(CL1-CL2) ) 

PPL=2./UN*  (SNE  ( J)  • (RAL1-RAL2)  ♦CSE.  ( J)  * (RBL2-RBL1 ) ) 

DWL=6. 283 1853* (EJ1*(SXL1*CIMJ-CXL1*SIMJ)-EJ2*(SXL2*CIMJ-CXL2*SIMJ) 
1) 

P#L*6. 2831853/UN* (EJ2* (SXL2*CSE ( J) ♦CXL2*SNE ( J) ) -EJ1*  <SXL1*CSE ( J) ♦ 
1CXL1*SNE(J) ) ) 
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30  CONTINUE 

Cl ( I . J) =HLOG( I . J) ♦UPK-DPL 
d (NI,NJ)=CT(I,J) 

Cl < 1 »NJ) =DWR-OWL 
Cl (NI • J) =-CT ( I »NJ) 

SOUR ( I * J ) = YLUG ( I , J) ♦PPR-PPL 

WAVE(I.J)=P*R-PWL 

It-  < J.EO.NON)  GO  TO  10 

XR1=XR2 

YRl=Y«2 

EJ1=EJ2 

CR1=CR2 

SR  1 =SR2 

RflR 1 = RAR2 

RHR1=R0R2 

C*R1=CXR2 

S*R1=SXR2 

If  (MONO  .EO.  1 ) GO  TO  10 
XL  1 =XL2 
YLl=yL2 
CL  1 =CL2 
SL 1 =SL2 
R ttL  1 = RAL2 
RrtLl=RflL2 
CXL 1 =CXL2 
SXL 1 =SXL2 
10  CONTINUE 

CALL  MATINS (C T « 38 • NOE  »CON »2 * 2» DTkM « 10 « INDEX ) 
IE (10. ED. 2)  RETURN 
00  20  I = 1 « NUN 
PAS(I)=0. 

pvsd)=o. 

par ( I ) =0 . 

PVR ( I ) =0 . 

DO  30  J= 1 « NON 
NJ=N0N* J 
CJ=CON ( J, 1 ) 

CNJ=CON (NJ, 1 ) 

WV=WAVE ( 1 • J) 

S*=S0UR< I ♦ J) 

PAS(I)=PAS(1) ♦CJ*HV-CNJ*SR 
PVS ( I ) =RVS (I ) ♦CJ*SR»CNJ*WV 
C J=C0N ( J • 2 ) 

C 'i  J=CON  ( N J ♦ 2 ) 

PAW ( I ) =RAR ( I ) ♦CJ*WV-CNJ*SR 
30  PVR( I ) =PVR ( I ) ♦CJ*SR*CNJ*WV 
PAS ( 1 ) =OMEGA*PAS  ( I ) 

PVS(I)=OMEGA»PVS(I) 

PAR ( I ) =OMEGA*PAR ( I ) 

20  PVR ( I ) =OMEGA*PVR  ( I ) 

77  Rt  TURN 
E'VU 
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C ••••SUBROUT INE  DAVID*  FUNCTION  ATAN3 • SUBROUTINE  MATINS*  AND  PROGRAM 
C ••••PGM4  NOT  LISTED— SEE  M0T35  LISTING**** 

C ••••COMMON  BLOCKS  IN  PGMA  SHOULD  BE  THE  SAME  AS  THOSE  IN  MAIN.**** 

C ••••THE  LAST  2 LINES  IN  PGMA  SHOULD  BE  CHANGED  TO  THE  FOLLOWING**** 
CALL  AETSKC (6LMOT2A6) 

END 

C •••• 


OVERLAY (5*0) 

PROGRAM  PGM5 

FOR  FUTURE  CALCULATION  OF  RESPONSES  TO  IRREGULAR  SEAS 
CALL  AETSKC (6LMOT2A6) 

END 


C ****SUBROl)T  INE  SEAST  NOT  LISTED— SEt  MOT  35  LISTING**** 


C ••••PROGRAM  PGM  1 A NOT  LISTED--SEE  MUT3S  LISTING**** 

C ****COMMON  BLOCKS  SHOULD  BE  THE  SAMt  AS  THOSE  IN  MAIN.**** 

C •*** THE  LAST  A LINES  IN  PGM1A  SHOuLu  BE  CHANGED  TO  THE  FOLLOWING**** 
IF(IO.EU.2  .OR.  ID.EU.-l)  CALL  AETSKC (6LM0T246) 

If  (LP.EO.2  .OR.  ID.EO.-I ) .AND.  NUW.EO.O)  CALL  AETSKC (6LM0T246) 
IF(LP.LE.O  .AND.  IP.LE.O)  CALL  AETSKC (ALPGM5) 

END 


C***« 
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Determination  of  Encounter  Frequencies 
in  Fol lowing  Waves 
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preceding 


PA3£/^lank_N0T 


?Wv:d 


For  cases  where  8,  the  wave  heading  angle,  is  at  least  90  degrees,  motion 

calculations  are  made  as  a function  of  the  encounter  frequencies  specified  by 

the  input  variable  OMEN(I).  These  values  and  the  Froude  number,  F , are  used 

n 

to  calculate  corresponding  wave  frequencies  and  wavelengths.  However,  for  8 
values  where  0<6<90  the  frequencies  are  caluclated  using  the  input  variables 
indicating  the  desired  wave  length  range  and  the  Froude  numbers.  The  program 
PGM1A  is  used  to  determine  the  encounter  frequency  values. 

The  determination  of  encountering  frequency  is  divided  into  three  regions: 

1.  Waves  which  propagate  faster  than  the  ship  speed,  V <<-V 

s w 

2.  Waves  which  propagate  at  about  the  same  speed  as  the  ship  speed. 

V <V 
s w 

3.  Waves  which  propagate  slower  than  ship  speed,  V >V 

s w 

where  V is  the  ship  speed  and  V is  the  wave  speed, 
s w 

The  above  three  regions  are  considered  in  sequence.  In  the  input,  the 
RWS(  1,1,1)  values  indicate  the  desired  (wave  I enq th) / (sh i p length)  values  and 
the  RWS(1,I,2)  values  indicate  steps  to  be  used  between  successive  wave  length 
values.  These  values  and  the  requested  Froude  number  values  are  used  to 
determine  what  combinations  of  Froude  number  and  encounter  frequency  fall 
within  each  region. 

The  relationships  between  the  non-d imens i ona i wave  frequency,  , and  the 

non-dimensional  encounter  frequency,  u,  and  Froude  number,  F , for  each  reqion 

n 

are  described  below. 

1.  Wave  Frequencies  in  Regions  1 and  2. 

For  the  wave  frequency,  uiQ,  the  celerity  of  the  wave,  C,  in  deep  water  is 
given  by 


where  g is  the  gravitational  acceleration 

When  the  ship  velocity  U is  less  than  C sec  8,  we  find  the  wave-encounter i nq 
frequency  by 


■ i cos  B „ 

a)  (I  - — — ) » uj  ( 1 - — ^ ) for  0 - 8 ^ 

o C sec  8 o g 2 


(1) 


13? 


- _ 1 ± / 1 - 4 u Fp  cos  6 

° 2 Fn  cos  6 (3) 

1 

We  note  that  for  u < 4Fr  C0SB,  we  have  two  different  wave  frequencies  or  wave 

lengths  for  a given  encounter  frequency,  ship  speed  and  wave  heading.  That 

means  that  there  exist  two  different  values  of  say  Vj  and  , to  provide 

an  identical  u by  Equation  (2)  for  fixed  values  of  F and  fi . 

n 

From  Equation  (1),  we  can  derive 


“ “0  -Fn  C0s  6 


or 


F = 


1 


n - (1  . JfL  ) 

<d„  cos  6 - ' 

0 (x) 

Case  1 (Region  1): 


1 + /T 


4 co  F_  cos  B 


2 F COS  B 

n 


(4) 


(5) 


For  given  arrays  of  u (or))  and  B,  the  minimum  Froude  number  can  be  obtained 


by 


1 1 

^Fn^m  ” 2(u  )u  cos  8 * lJ cos  B 

on  a_ 

in 


(6) 
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from  Equation  (5)  where  the  subscripts  m and  M respectively  mean  minimum  and 


maximum  values.  For  given  arrays  of  and  R and  a minimum  values  of  m 
(defines  as  OMIN  in  the  program),  the  maximum  Froude  number  is  obtained  by 

(Fn)M  " (S  ) cos  6 0 ] (7) 

o m o m 


b 


(i e — ) 

/2 cos  6 


from  Equation  (A) 


Case  2 (Reg ion  2 ) : 

1 - J\  - 4 J)Fn  cos  B 


2 F cos  B 
n 


(F  )-*o 
n m 


^Fn^M  2 ("  ) cos  6 
o m 


cos  6 


2.  Wave  frequencies  in  Region  3 


Case  3 (Region  3) : 


(F  cos  8-1)  for  F<- 

r A n A n 


T cosB 


F “ * (jj  • % 

n “0  cos  8 (—  - 1) 

0 

— _ 1 + / 1 + flu  F COS_ 6 

' n 

2 cos  b 


((Vm 


VA/xm  cos  8 


{Fn}M  = /ZV7T"  cos  b ( -J1JJ 


I 


I 

\ 


For  given  arrays  of  u and  B,  proper  bounds  of  are  found  in  Cases  I 
through  3,  and  if  any  of  the  Fn  values  given  as  input  data  are  found  within 
the  bounds  In  each  case,  the  encounter  frequencies  are  calculated  by 
Equation  (2)  for  Cases  1 and  2 and  by  Equation  (10)  for  Case  3-  The 
foregoing  procedure  is  performed  in  PGMIA. 
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DATA  INPUT  descriptions 
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l 

V 


J^ECEDlic 


PaYunk.nct 


film.  CD 


DATA 
SET  * 

FORMAT 

COLUMNS 

FORTRAN 

NAME 

DESCRIPTION 

1 

8a6 

1-1.8 

title(i) 

Descriptive  title  to  be  used  at  the  top 
of  each  output  page 

2 A 

215 

5 

MONO 

Define  as: 

0 for  twin-hull  configuration 

1 for  mono-hull  configuration  with 
asymmetric  cross  sections 

2 for  mono-hull  configuration  with 
symmetric  cross  sections 

10 

JA 

Define  as: 

1 if  all  wave  heading  angles  B (WANG  (I)) 
are  such  that  90°<  WANG(I)  < 180° 

2 if  any  6 is  less  than  90° 

3 if  only  preliminary  geometric 
computations  are  desired. 

Recommended  for  first  run. 

2 B 

2FI0.5 

1-10 

SCALE 

Scale  factor  for  all  linear  input 
(except  the  data  input  for  the  fins). 
Def aul t value  of  1 . 

3 

1215 

11-20 

4-5 

GRAV 

NFR 

Default  value  of  32.174.  Use  9-807  if  length 
units  are  given  in  meters  ratner  than  feet. 

Number  of  frequencies  (0MEN(I))  to  be 
given.  Maximum  value  of  30 

10 

NBTA 

Number  of  heading  angles  (WANG(I))  to  be 
given.  Maximum  value  of  3- 

15 

NFN 

Number  of  Froude  numbers  (FN(I))  to  be 
given.  Maximum  value  of  1*. 

20 

NSD 

Number  of  hull  separations.  (SD ( I ) ) 
for  twin-hull  configuration  only.  Define 

as  1 . 

21.-25 

NSTR 

Number  of  locations  (RBMST(I))  for  calculation 
of  absolute  motion,  velocity  and  acceleration. 
Relative  motion  is  also  calculated  in  MOT35- 
Maximum  value  of  10. 

29-30 

NOS 

Number  of  stations  for  which  offset  information 
is  given.  Maximum  value  of  30. 

35 

NL00P 

Maximum  number  of  iterations  for  solution 
of  damping  and  motion  equations  in  PR2B. 
Value  of  3 should  be  adequate. 

■ A unique  data  Identifier  indicates  that  a new  card  should  be  used.  If  an  array  is  being 
defined,  a data  set  may  consist  of  more  than  one  card  of  the  same  format. 
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DATA 

FORTRAN 

SET 

FORMAT  COLUMNS 

NAME 

DESCRIPTION 

40 

IG 

Control  variable  which  determines  the  extent 

of  the  printed  output.  Values  for  motions 
and  phases  are  always  given. 

Define  as: 

0 for  no  additional  output 

1 for  exciting  forces  and  moments 

2 for  exciting  forces  end  moments  and  added 
mass  and  damping  coefficients 

3 for  exciting  forces  and  moments  added  mass 
and  damping  coefficients,  and  Intermediate 
values  of  motions  If  NLOOP  > 0. 

45  LP  Controls  charactron  plotting 

Define  as: 

0 for  no  plots 

1 for  plots  of  offsets  (Define  JA  as  3-) 

50  IND  Define  as: 

0 for  typical  computer  runs 

1 for  storing  motion  data  on  file,  for  use 
wltha  modified  version  of  SH0TI0N  which 

provides  motion  results  In  Irregular  seas. 


4 

8F10.5 

OMEN (I ) 

Non-dl mens  1 one  1 encounter  frequencies  for 
which  calculations  are  desired.  OMEN (I)  - 
io  / /g/EL  where  EL  Is  defined  In  data  set 
10.  This  Input  Is  used  for  calculations 
for  all  speeds  90°  < B <180°. 

(I<NFR<30) 

5 

4F10.5 

WANG (I) 

Angle  of  Incidence  of  wave  tra In  relative  to 
the  direction  of  ship,  given  In  gegrees. 

Defined  as  1 80°  for  head  seas,  0°  for  following 
seas.  Must  be  givgn  In  the  order  of  increasing 
values  between  0 and  180.  (I<NBTA<3) 

6 

8F10.5 

FN(I) 

Froude  number  - (forward  veloclty)/i/g(EL)  . 
(I<NFN<4) 

7 

8F10.5 

SD  ( I ) 

For  twin-hull  ship  define  as  half  the 
distance  between  the  centerlines  of  hulls. 
( I <NSD<6)  For  mono-hull  use  blank  card. 

8A 

8FI0.5 

RBMST  ( I) 

Desired  longitudinal  locations  at  which 
absolute  displacement,  velocity,  and 

acceleration  as  well  as  relative  displacement 
(MOT35  only)  are  to  be  calculated.  The 
values  should  be  given  as  distances  from 
ST ( I)  ■ 0.  to  the  point  of  Interest  In  the 
same  unit  as  EL  times  (20. /EL)  (See  Data 
Set  13)  ( I*NSTR*I0) 


'39 


description 


Desired  vertical  locations  of  the  hull  at  the 
longitudinal  locations  given  by  RBMST(I)  from 
the  calm  waterline  at  which  absolute  lateral 
displacement,  velocity  and  accelerat Ion  are  to 
be  calculated.  This  input  Is  needed  only  for 
MOT2A6.  Give  blank  card(s)  for  MOT35-  The 
values  should  be  given  in  the  same  dimensional 
unit  as  EL.  A positive  or  negative  sign  should 
be  assigned  depending  on  whether  the  point  is 
above  or  below  the  calm  waterline  (I<NSTR<10). 

THE  FOLLOWING  DATA  SET  IS  TO  BE  INCLUDED  ONLY  IF  AT  LEAST  ONE  VALUE  OF  WANG  (I) 

IS  LESS  THAN  90.  (THAT  IS,  IF  JA  - 2) 


9A 

8F10.5 

RWS (1,1,1) 

Bounds  of  >/L  (wave  length  divided  by  EL)  for 
which  calculations  are  desired.  Maximum  of  8 
va 1 ues . 

9B 

7F10.5 

RWS (2,1,1) 

Increments  of  >/L  to  be  used  between  successive 
pairs  of  RWS (1,1,1)  to  RWS ( 1 , I+l , 1)  in 
increments  of  RWS(2,I,I),  for  up  to  7 sets. 

?c 

3EI0.5 

1-10 

0MIN 

Minimum  value  of  encounter  frequency  divided 
by  Vg/EL  for  which  calculations  are  desired. 

11-20 

0MAX 

Maximum  values  of  non-dimensional  encounter 
frequency . 

21-30 

DOME 

Increment  to  be  used  for  non-dimensional 
encounter  frequency. 

10 

8FI0.5 

1-10 

EL 

Distance  between  Station  0 and  Station  20. 
This  value  is  used  for  non-d i mens iona 1 i za t i on 
in  the  program  and  should  be  used  in  defining 
GYR,  GYRT,  OMEN (I),  FN ( I ) . RWS ( 1 , I , 1 ) , 

RWS (2, 1,1) 

11-20 

GYR 

The  pitch  or  yaw  radius  of  gyration  divided 
by  EL. 

21-30 

GYRT 

The  roll  radius  of  gyration  divided  by  EL. 

Needed  for  MOT2I46  only. 


DATA 

FORTRAN 

SET 

FORMAT 

COLUMNS  NAME 

8B 

8F10.5 

RBMHT(I) 

U*0 


DATA 

SET 


1 1 A 


FORTRAN 

FORMAT  COLUMNS  NAME 
31-LO  GCB 

Ll -50  vrr. 

51 -AO  GMT 

6) -70  DEPCAT 

71-80  BRCL 


DESCRIPTION 

Longitudinal  center  of  buoyancy  erven  in 
station  number,  normally  between  0.  and  20. 

Does  not  have  to  be  an  inteqer.  Will  be 
calculated  in  program  if  defined  as  0. 

Vertical  center  of  gravity  referenced 
to  waterline  (Positive  if  above  waterline, 
negative  otherwise). 

Transverse  metacentric  heiqht.  Used  in 
M0T2L6  only.  Will  be  calculated  in  M0T2LA  if 
define  as  0. 

if  MONO  = 0 (twin- hull),  defi  ne  as  ver  t iral 
distance  (positive  number)  between  waterline 
and  maximum  breadth  point  of  hull.  Otherwise 
define  as  0. 

Used  only  in  irregular  sea  calculations  (N0U-0) 
If  MONO  * 0,  define  as  distance  (positive 
number)  between  waterline  and  the  bottom  of 
cross  deck.  Otherwise  defined  as  0. 


DATA  FOR  FIN  A AND  FIN  B 

8F 1 0 . 5 1-10  FAL  Longitudinal  distance  between  Station  0 to 

quarter  chord  of  fin 

11-20  FAY  Transverse  distance  between  lonqitudinal  plane 

of  symmetey  of  two  hulls  (or  one  hull  for  nomo- 
hull)  and  the  centroid  of  fin 


21-30  DEPA 

31 -L0  CHRDA 


Vertical  distance  between  waterline  and  mean 
depth  of  fin 

Chord  of  fin 


LI-50  SPNA 

51-60  THKA 
61-70  CLFA 
71-80  XZFA 


Geometric  span  of  fin.  If  the  fin  is  fu'l-span 
(spans  the  entire  distance  between  hulls),  then 
define  as  half  that  distance. 

Maximum  thickness  of  fin. 

Lift-curve  slope  (Per  radian)  fo-  fin. 

Drag  coefficient.  Approximated  by  1.2,  the 
value  for  a flat  plate  attached  to  a wall  in 
a uniform  flow  normal  to  the  plate. 


IL| 


DATA 

SET 


FORMAT 


DESCRIPTION 


8FI0.5 


12 


FORTRAN 
COLUMN  NAME 

FBL 

FBY 

DEPB 

CHROB 

SPNB 

THKB 

CLFB 

XZFB 

XZFO 


XZVL 


XZHB 


XZPB 


<•5  KV 

50  KW 


Data  for  second  fin. 


Body  cross-flow  draq  coefficients  denoted 
as  Cp  in  Reference  I.  For  SWATH  with 
circular  cross  sections  for  main  hull, 

0.5  has  been  used. 

Body  viscous-lift  coefficient  denoted  as 
a0  in  Reference  I.  For  SWATH  with  circular 
cross  sections  for  main  hull,  0.07  has 
been  used. 

Heave  viscous  damping  coefficient  for  effect 
of  bulbous  bow  shape.  Used  only  in  MOT35- 
Define  as  zero  except  for  mono-hull  or 
conventional  catamaran  which  has  a bulbous 
bow. 

Pitch  viscous  damping  coefficient  for 
effect  of  bulbous  bow  shape.  Used  only 
in  MOT35-  Define  as  zero  except  for  mono-hull 
or  catamaran  which  has  a bulbous  bow. 

Sequenced  integer  number  (counting  from  the 
foremost  station  as  1)  of  first  station 
without  bulbous  shape. 

Sequenced  integer  number  (counting  from  the 
foremost  station  as  1)  of  last  station 
without  bulbous  shape. 
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ONE  CARD  OF  THE  FOLLOWING  FORMAT  MUST  BE  PROVIDED  FOR  EACH  STATION.  A TOTAL  OF 
NOS  CARDS  MUST  BE  GIVEN.  AT  PRESENT  ONLY  ST(l),  NM(I)  AND  MPS  (I  ) NEED  BE  DEFINED. 
(THE  OTHER  VARIABLES  ARE  USED  IN  OTHER  PROGRAMS  FOR  MONO-HULL  SHIPS  FOR  THE  LEWIS- 
FORM  FIT  WHICH  IS  NOT  INCLUDED  IN  THE  PRESENT  procpams) 


DATA 

SET 

FORMAT 

COLUMNS 

FORTRAN 

NAME 

DESCR 

IPTI0N 

13 

4F9.4.  2 9 

1-9 

ST(I) 

Station  number  of 
a scale  of  20.0  f 

the  Ith  section  given  in 
rom  the  forward  reference 

station  designated  as  Station  0.  The  value 
can  be  neqatlve  if  the  station  Is  ahead  of 
Station  0 or  i t can  be  greater  than  20,  if 
the  station  is  aft  of  Station  20.  The 
stations  corresponding  to  ST  (l),  ST  (I ) 

- 0,  ST  (I)  - 10.,  ST  (I  ) - 20.,  ST  (NOS) 
should  always  be  given.  The  stations 
between  the  foreqolng  stations  should  be 
chosen  such  that  pairs  of  even  spacing  be- 
tween the  stations  starting  from  ST(I) 

“ 0,  and  ST(I)  • 20.0  in  either  direction 
can  be  maintained. 


(I*<09  < 30) 


10-18 

Beam  (j) 

Define  as  0. 

19-27 

DRFT  (I) 

Define  as  0. 

28-36 

AREA  (I) 

Define  as  0. 

44-45 

NM  (I) 

Number  of  offset  points  used  to  describe 
the  Ith  station.  Maximum  of  20.  For 
mono-hull  ships,  10  is  usually  adequate. 

54 

MPS  (I) 

Used  to  Indicate  location  of  par.il  Ini 
middle  body 

Define  as: 

0 is  station  is  not  part  of  the  paral'el 
middle  body 

1 for  first  station  of  parallel  mM-Mn 
body 

2 for  all  but  the  first  station  which  is 
part  of  the  parallel  middle  body 

DATA  SET  14 

IS  REPEATED 

NOS  TIMES,  ONCE 

FOR  EACH  STATION 

8F9.4 

X ( I. J) 

The  value  of  the  x-coord i na tes  of  the 
points  on  the  immersed  cross  sectional  con 
tour  given  in  the  same  dimensional  unit  as 

EL  with  reir>*»ct  to  the  coordinate  system 
shown  in  Fiqure  2.  (I  < NOS  » TO,  NM  (IV}0) 
All  values  ( NM  ( I ) in  number)  for  the  ItlT 
station  are  to  be  given  with  8 per  card. 
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DATA 

SET 

FORMAT 

COLUMN 

FORTRAN 

NAME 

DESCRIPTION 

8F9.4 

Y(I,J) 

The  values  of  the  y-coordlnate  of  the  point 
corresponding  to  X ( I , J ) as  shown  In  Figure  2. 
(I<N0S<30),  J <NM ( I )< 20)  AM  values  (NM(I)  in 
number)  for  the  Ith  station  are  to  be  given 
wl th  8 per  card. 

15 

415 

5 

NOW 

Number  of  significant  wave  heights  (WINK  (I)) 
to  be  chosen. 

10 

NOL 

Number  of  ship  lengths  (SHLT([))  to  be  chosen 

15 

NSP 

Number  of  Ship  speeds  (SPEED(I))  to  be  chosen 

19-20 

NST 

Number  of  stations  (STAT(I))  to  be  chosen 

CARD  SETS  16A-16D  ARE  TO  BE  USED  ONLY  IF  NOW  IS  GREATER  THAN  0.  THEN  THE 
FOLLOWING  DATA  ARE  USED  TO  COMPUTE  MOTIONS  IN  IRREGULAR  SEAS  USING  THE 
P 1 ERSON-MOSKOWI T2  SPECTRUM  FORMULA. 

I6A 

8F10.5 

WINK(I) 

Significant  wave  heights  in  feet  (MN0W<5) 

16b 

8F10.5 

SHLT(I) 

Ship  length  (as  defined  by  EL  but  not 
necessarily  the  same  value)  (I<-N0L>-6). 
When  this  value  is  other  than  that  given 
by  EL,  all  the  ships  dimensions  are 
proportionally  scaled. 

16C 

8F10.5 

SPEED(l) 

Ship  speed  in  knots.  (I<NSP<6) 

16D 

8fio. 5 

STAT(I) 

Station  number  given  in  a scale  of  20  similar 
to  ST ( I ) (See  Data  Set  13)  where  significant 
amplitude  of  absolute  and  relative  (MOT35 
only)  displacement,  velocity  and  acceleration 
are  to  be  calculated  (I<NST<20) 

USE  THE  FOLLOWING  DATA  SET 

ONLY  WHFN  PLOTTING  OFFSETS  ( LP= 1 ) 

17 

3 A 1 0 

NAME  1 

User's  name. 

NAME  2 

User's  code. 

NAME3 

User's  telephone  extension. 

IN  ORDER  TO  MAKE  CALCULATIONS  FOR  ADDITIONAL  SHIP  CONFIGURATIONS,  REPEAT 
DATA  SETS  1-16  FOR  EACH  CONFIGURATION. 


I8A  Blank  Card. 
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1 8B 


Blank  Card. 


APPENDIX  E 

SAMPLE  COMPUTER  INPUT  AND  OUTPUT 

* 


1*5 


M0T2A6  SWAY.  ROLL  AND  YAW  MOTIONS  OF  SWATH  6A  PAGE 


Sfitf[£  RUN  1 - ffJT?>6  OUTPUT  (in  = ?)  FOR  aw, TP 
m FOR  N)  HEADINGS  AfC  P-T  FRPKTE  WffRS 


M0T3*t>  S*AY.  SOLL  AW  YA*  MOTIONS  ()►  VxAfH  6A  °AG£ 


Vj 


bhi 


i , 


t a v % *L 

n ipv 

4 is  jm!  • l*  iL 

Lui  i 

VJ 

V 


VI 

S' 


S' 

IT 


Vl 

X 


X 

X 


o o o o 
o © o o 
x ^7*  o 

0 o 3 x 

• • • • 

X>  — ' V/  X 

1 VJ 


o © o o 
o o o © 
O X X 
VJ  — Vj  X 

IT  'VJ  VI  X 


© o o o 
© o © o 
r o x x 
vj  © -•  x 

/I  M £ 
I VJ 


© © o o 

© o 3 o 


O O 3 © 
0 0 3 0 


O © "3 
© © © 
Vj  * 


Vj 


o © © o 
o o o o 

X X VJ  VJ 

'vj  o r in 

- ^ \j 


o o © o 
o o o o 
^ M\1  ^ 
♦ — S'  c 

'Vj  'vj 
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Irregular-sea  calculations  can  be  made  for  any  wave  heading  with  the 
use  of  transfer  functions  from  M0T2l*6  and  MOT35  and  the  Center's  SMOTION 
program.  The  program  SMOTION  Is  used  to  calculate  ship  responses  uslr-.g 
the  Pterson-Moskow! tz  formula  as  well  as  results  of  spectral  analysis  of 
323  samples  of  real  sea  conditions  measured  at  Station  INDIA  in  the  North 

g 

Atlantic.  Data  for  these  spectra  Is  not  included  in  the  program  and 
must  be  provided  on  separate  permanent  files.  SMOTION  can  be  used  to 
calculate  the  single  amplitude  ship  responses.  In  these  results  the 
significant  wave  height  is  given  in  feet. 

The  program  SMOTION  has  been  modified  to  include  the  option  of  providing 
transfer  functions  from  a tape.  As  discussed  in  the  section  on  output, 
transfer  functions  can  be  written  on  tape  (or  a permanent  file)  by  defining 
IND  as  1 in  the  programs  when  the  wave  heading  angle,  8,  is  between  90  and 
180  degrees. 

SMOTION  is  written  such  that  heave  and  pitch  or  sway,  roll  and  yaw 
transfer  functions  can  be  provided.  Heave  and  pitch  must  be  provided  on 
a device  using  the  local  file  name  TAPE22;  sway,  roll  and  yaw  are  provided 
on  a devi ce  us i nq  the  local  file  name  TAPE23.  If  data  is  provided  from  both 
programs,  the  same  data  deck  must  be  used  for  both  programs.  If  both  sets  of 
data  are  not  provided,  the  undefined  data  will  be  defined  as  zero.  There 
transfer  functions  can  be  used  in  SMOTION  to  calculate  absolute  and  relative 
motion  transfer  funct  ions  at  specified  locations.  All  length  units  should  be 
given  in  feet. 

When  running  the  programs  MOT35  and  MOT2k6  care  should  be  taken  to  define 
the  range  of  the  dimensional  wave  frequency  from  0.025  to  2.0  rad/sec. 

Although  the  transfer  function  may  be  constant  for  some  of  the  range,  it  is 
important  to  provide  data  at  intervals  of  the  frequency  of  about  0.3  in  the 
constant  region  in  order  to  assure  proper  evaluation  in  the  interpolation  routine. 

For  wave  heading  angles  less  than  90  degrees  the  transfer  functions 
must  be  provided  on  computer  cards.  The  absolute  and  relative  motion  transfer 
functions  for  locations  must  also  be  provided  on  computer  cards.  In  this 
case  values  must  be  provided  for  frequencies  of  0.025  to  2.0  in  constant 
intervals  of  0.025  or  for  specified  (wave  length)/(ship  length)  values  which 
span  the  frequency  range  from  0.025  to  2.0. 
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Results  can  be  plotted  using  the  CALCOMP  plotting  routine.  A listing 
of  SMOTION  Is  provided  below.  Data  Input  descriptions  are  Included  In  the 
program  listing. 
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non  no  noonoonooooooo 


PROGRAM  SM0TI0N(INPUT*512,0UTPUT=S12.TAPE7.TAPE2=S12. 

X TAPE4*512.TAPE22=5l2.TAPE23=5U.TAPtS=INPuT.  TAPE6=0UTPUT> 

THIS  PROGRAM  COMPUTES  SHIP  RESPONSES  — SINGLE  AMPLITUDE 

(A)  SIGNIFICANT  VALUES.  (B)  MOST  PROBABLE  EXTREME  VALUtS. 

AND  <C)  EXTREME  VALUE  FOR  DESIGN  CONSIDERATION 

fur  any  of  the  following  transfer  functions 

(1)  RELATIVE  BOW  MOTION  <RBM).  (2)  HEAVE.  (3)  PITCH, 

(4)  ROLL.  (5)  VERTICAL  SHEAR,  (6)  BENDING  MOMENT, 

(7)  ABSOLUTE  MOTION,  OR  (8)  HYDROFOIL  LOADING 

IF  RBM  IS  INPUT,  ONE  OF  THE  FOLLOWING  MAY  ALSO  BE  COMPuTtD 
<1>  WATER  CONTACTS  *»  (2)  DECK  WETNESSES. 

(3)  HULL  SLAMS.  (4)  HYDROFOIL  BKOACHINGS, 

(5)  SIGNIFICANT  PRESSURES  *,  OR  (6)  C-S  SLAMS  * 

* RELATES  TO  CATAMARAN  CROSS-STRUCTURE 

IF  ROLL  IS  INPUT.  LATERAL  ACCLLERAT IONS  MAY  BE  COMPUTED 
IF  ABSOLUTE  MOTION  IS  INPUT,  VERTICAL  ACCELERATIONS  MAY  HE  COMPUTE^ 

WAVE  SPECTRA  USED  ARE  ( A ) P I ERSON-MuSKOW  I T 2 FORMULATION  ANl/ 

(B)  323  ACTUAL  SEA  SPECTRA  MtASURED  AT  STATION  INDIA 

RESPONSE  AMPLITUDES  AS  A FUNCTION  OF  SIGNIFICANT  WAVE  HEIGHT 
AND  PERCENTAGE  EXCEEDANCE  ARE  TABULATED  AND  WR I T TEN  ON  T APE 7 
FOR  PLOTTING  ON  CALCOMP  V 36 


COMMON  /BL1 / SHIPNI6),  TFT (8 ) , YT(24),  YT2I32),  TCLR(16>,  X T 1 T < 3 ) . 
, PCT IT ( 3) . BUFF<1024>,  XPT325),  YP<325),  XMIN.  XMAX,  XlNC,  XLG, 

, YMIN,  Y2NC » ZMIN,  ZINC.  ISYM,  TWS(3>.  V,  L.  CLR,  HPL , DISPL.  M 
COMMON  /BL2/  SWH(323),  RA(323,3)»  R2(323).  NK , 

, SWHPM (51 ) , RAPM (51.3) « R2PM(51) 

COMMON  /BL3/  GPI36).  GP2(36)»  YPE(36.2),  ZPE(3b) 

COMMON  /BL4/  W (81 ) « W2(81),  WLL(el),  SW(8l).  FR(bI),  RAu(Pl), 

. *E ( 8 1 ) 

COMMON  /BL5/  WAVEL(SO),  TRAO(50),  YR(SO),  XR(50),  XW(SO),  Tw(SO) 
COMMON  /BL6/  OWSPC  (21),  SINDIA(2I),  PRB(323),  MK323) 

COMMON  /BL7/  GPP ( 36 ) , YSUM(36,2),  ZSUM(36) 

COMMON  /BL 8/  HA(4, 30.3) ,HP(4.30. 3) ,PA(4, 30,3) ,PP(4, 30,3) . 

X ROLL A (4,30,3) .ROLLP (4.30,3) 

COMMON  /BL9/  FN  (4  ) .OMEGAE  (30)  .WN(30)  ,BETA(3)  »WFR(4,3(J»3) 

CUMMON  /BL 10/  NFN.NFR.NBTA, IFN, IdETA 


DATA 

DATA 

D*TA 

DATA 

D*»TA 


PCT I T / 10HPERCENTAGE 
XT  I T / 10HSIGNIFICAN. 
XMIN,  XMAX,  XlNC,  XLG 
TWS  / iohstation  in 

YT  / 10H  R.B.M, 

1 Oh  HEAVE 

10H  PITCH 

10H  ROLL 

10HVERTICAL  S 
10HBENDING  MO 
10HABS0LUTE  M 
10H  FOIL 


, 10H  tXCEEDANC 
10HT  WAVE  HE  I , 
/ 0,0.  4S , 0 » 5 
10BDIA  WAVE  S 
1 OHAMPL I TUOE 
1 OhAMPL I TUOE 
10HAMPL I TUOE 
10HAMPLITUUE 
10HHEAR  AMP, 
10HMENT  amp. 
10HOTION  AMP. 
10H  LOADING 


, 1 HE  / 

10HGHT  IN  FT.  / 
.0.  9.0/ 
10HPECTRA  / 

10HIN  FEET  , 

10HIN  FEET  . 

10HIN  DEGREES. 
10HIN  OEGREES. 
10HIN  TONS  , 
10HIN  FT-TONS. 
10HIN  FEET  . 
10HIN  TUNS  / 
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data  yt2/ 

1 OH  NUMBE*  1QHR  OF  WATER 

10H  NUMBE » IOHR  OF  DECK 

10H  N.  IOHUMBER  OF  H 

10H  NUMBER.  10H  OF  FOIL  B 

1 OH  S.  10HIGNIFICANT 

10H  L.  10HATERAL  ACC 

10H  VE.  10HRTICAL  ACC 

10H  NO.  OF  CR.  10H0SS-STRUCT 

D«  T A TFT  / 10H  RBM/WA 

10H  ROLL/WA  ,10H  SHEAR/WA 
10MFOIL  LD/WA  / 

DATA  TCLR  / 10HWL  TO  CRUS 

10HWL  TO  OECK 

10HWL  TO  BOTT 

10HWL  TO  FOIL 

, 10H 

10HCG  TO  DECK 


10H  CONTACTS  , IOHPER  HOUR  ♦ 
10HWETNESSES  . 10HPER  HOUR  » 
OHULL  SLAMS  . IOHPER  HOUR  . 
lOHRUACHlNGS  . IOHPER  HOUR  . 
10H  PRESSURE  . 10HIN  PSI  . 
10HELERATIUN  . 10 H/  G , 

l ohelerat ion  • ioh/  g , 

IOHUkE  slams  . IOHPER  HOUR  / 
10H  HEAVE/WA,  1 Oh  PITCh/WA, 
OH  BMT/WA.10H  AM/WA  , 

10H-STRUCTURE, 

IOH  , 

10HOM  OF  HULL, 

IOH  , 

IOH  , 

IOH  , 


DATA  GPP/  500., 
1 t>0.»  50.,  AO., 
1 10.,  9.,  6.,  7 


IOH  , IOH  , 

10HWL  TO  CROS,  10H-STPUCTURE  / 

400.,  300.,  250.,  200.,  150.,  100., 

30.,  25.,  20,,  IB.,  16.,  15.,  14.* 
.,  6. , 5.,  4.,  3.*  2.5,  2.*  1.5,  1.0 


90.,  80. 
13.,  12., 
, 0.5  / 


70. 

11., 


C UWSPC  --  area  2 OCEAN  WAVE  STATISTICS  FROM  "HOGtiEN  ♦ LUMB"  IN  PERCENT 

DATA  OwSRC  / 3.34580,  5.94340,  15.04857,  18.75943,  14.38183, 

1 12.34236,  8.42032,  6.78015,  4.41381,  4.40777,  .73915,  .80553, 

2 1.19773,  1.02576,  .47366,  .48573,  .60685,  .40729,  .48573. 

2 .01508,  .00603  / 

C INDIA  — NUMBER  OF  INDIA  SPECTRA  IN  EACH  O.W.S.  GPUUP 

DATA  SINDIA  / 86.,  24.,  21.,  26.,  27.,  15.,  16.,  22.,  14.,  8.,  8., 

1 d.»  8.,  4.,  6«,  10.,  5.,  2.,  2.*  8.,  3.  / 

DATA  MI  / 86*1,  24*2,  21*3,  26*4,  27*5,  15*6,  16*7,  22*8,  14*9, 

1 8*10,  8*11,  8*12,  8*13,  4*14,  6*15,  10*16,  5*17,  2*18,  2*19, 

2 o*20,  3*21  / 


G = 32.174 
TRIG  = 6.283185  * G 
A = 0.0081  • G * G 
RAD  * 0.0174533 
RH02  = 0.5  * 1.9905 

W(I)  — WAVE  FREQUENCY  (RAD/SEC),  INCREMENTS  OF  0.05  FROM  0 TO  2.0 
N«  = 81 
W ( 1 ) * 0.0 
W2 ( 1 ) = 0.0 
DU  2 1*2, NW 
W(l)  * W(I-l)  ♦ 0.025 
W2 ( I ) * Mil)  • W ( I ) 

2 CONTINUE 

CALL  PLOTS  (BUFF,  1024,  7) 

RtAD (5,502)  ITHPM,ITSRYM,ICHECK 
C IF  IIHPM  * ITSRYM  * 0 TRANSFER  FUNCTION  DATA  IS  ON  COMPUTER  CARDS 
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C IF  ITHPM  = ITSRYM  a 1 TRANSFER  FUNCTION  DATA  IS  ON  TAPES  22  AND  23 
C IT  ITHPM  a 1 AND  ITSRYM  a 0 HEAVE  AND  PITCH  T.F.  OATA 
C IS  ON  TAPE  22.  ROLL  * 0. 

C IF  ITHPM  = 0 AND  ITSRYM  a 1 ROLL  T.F.  DATA  IS  ON  TAPE  23 
C AND  HEAVE  = PITCH  = 0. 

C DEFINE  ICHECK  AS  0.  UNLESS  ITHPM  a ITSRYM  = i 

C 

C IF  ICHECK  = 0 READ  DATA  — DO  NOT  CHECK. 

C IF  ICHECK  a 1 CHECK  DATA  AND  RUN  PROGRAM. 

C IF  IcHECK  = 2 CHECK  HPM  AND  SRYM  DATA  FOR  COMPAT IBILITY. 

C 

ITAPE=ITHPM*ITSRYM 
If (ITAPE.EQ.O)  GO  TO  II 
YT(1)=10HRELATIVE  M 
Y T (2) =10HOTION  AMP. 

Tr  T Cl)  = 1 OH  RM/WA 
RlAD (5.501 ) XLND 

XLND  = LENGTH  IN  FEET  USED  IN  HPM  AND  SRYM. 

C«LL  D A T A I N ( XLND . I THPM , I T SR Y M , I CHECK ) 

IF ( ICHECK. EO. 777)  GO  TO  777 
11  Rc AD ( 5 * 502 ) NSHIPS 

NSHIPS  — NUMBER  OF  SHIPS  INPUT 

DU  200  NSN=1. NSHIPS 
RtWlND  2 
PLWlND  4 

Rc.AO  (5,500)  (SHlPN(I),  1 = 1,6) 

SHIPN  — TITLE  SUCH  AS  SHIP  NAME,  tTC.  (UP  TU  60  CHARACTERS) 

Ri  AD  (5,502)  L,  INO,  NWL , M,  IP 

L — 1 FOR  RELATIVE  BOW  MOTION,  2 FUR  HEAVE,  3 FOR  PITCH, 

4  FOR  ROLL,  5 for  vertical  shear,  6 for  bending  moment, 

7 FOR  ABSOLUTE  MOTION,  8 FOR  FOIL  LOAD 
M — 1 FOR  CROSS-STRUCTURE  WATER  CONTACTS,  2 FOR  DECK  WETNESSES* 
3 FOR  HULL  SLAMS,  4 FOR  FOIL  BROACH  I NGS , 

5 FOR  CROSS-STRUCTURE  SlONIFiCANT  PRESSURES, 

6 FOR  LATERAL  ACCELERATIONS, 

7 FOP  VERTICAL  ACCELERATIONS, 

8 FOR  CROSS-STRUCTURE  SLAMS 

IP  — 1 PLOTS  ONLY  SIGNIFICANT  VALUES  OF  THE  RESPONSE  (L) 

2 PLOTS  SIGNIFICANT  AND  MOST  PROBABLE  EXTREME  VALUES 

3 PLOTS  ONLY  EXTREME  VALUES  FOR  DESIGN  CONSIDERATION 

4 PLOTS  ONLY  ADDITIONAL  RESPONSE  SPECIFIED  BY  (M) 

5 PLOTS  ALL  CALCULATED  RESPONSES  SPECIFIED  BY  (L>  AND  ( M ) 

6 PLOTS  SIGNIFICANT  VALUES  FUR  (L)  AND  (M) 

EXCEEDANCE  PLOTS  ARE  MADE  IN  ALL  CASES 
0 OMITS  ALL  PLOTS 

INO  — 1 IF  TRANSFER  FUNCTION  INPUT  DIRECTLY  FOR  W(I),I=2,4l 
INO  — 2 IF  T.F.  INPUT  AS  FUNCTION  OF  (WAVE  LENGTH  / SHIP  LENGTH) 
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C 1 NO  — 3 IF  T.F.  INPUT  FOR  EVEN  INCREMENTS  OF  NON-DIM. ENC .FREQ. 

C NHL  — NO.  OF  WAVE  LENGTHS  INPUT  IF  INO=2  (AO  IS  MAX.) 

Rt.  AD  < 5 » 508  ) BPL»DISPL* V.CLR* ALPHA *XKK .ROOT  .TRETA.XX.YY 
C BPL  — SHIP  LENGTH  IN  FEET 

C DISPL  — DISPLACEMENT  IN  TONS  (BOTH  HULLS  OF  CATAMARAN) 

C V — SHIP  SPEED  IN  KNOTS 

C CLR  — VERTICAL  DISTANCES  IN  FEET  FOR  CALC.  IF  M=1 ,2. 3. 4, 6. 8 


c 

IF 

M=  1 , 

CLR  = 

WL 

TO  CROSS-STRUCTURE 

c 

IF 

M=2, 

CLR  = 

WL 

TO  DECK 

c 

IF 

M=3. 

CLR  = 

WL 

TO  BOTTOM  OF  HULL 

c 

IF 

M=4  . 

CLR  = 

WL 

TO  TOP  OF  FOIL 

c 

IF 

M = 6. 

CLR  = 

CG 

TO  DECK 

c 

IF 

M=8, 

CLR  = 

WL 

TO  CROSS-STRUCTURE 

c 

IF 

M=5 

OR  M=7  , 

CLR 

IS  NOT  USED 

C ALPHA  — CONSTANT  FOR  EXTREME  VALUE  CALCULATION 

C USE  ALPHA  = 0.01  FOR  99  PERCENT  ASSURANCE 

C XKK  — CONSTANT  <K)  FOR  CALC.  OF  SIGN. PRESSURE  ON  CROSS-STRUCTURE 

C ROOT  — THRESHOLD  VELOCITY  IN  FT/SEC  FOR  SLAM  CALCULATIONS 

C TBETA  — HEADING  IN  DEGREES  (180  = HEAD  SEAS) 

C USE  XX  AND  YY  WHEN  ITHPM  OR  ITSRYM  IS  NOT  ZERO. 

C XX  AND  YY  ARE  COORDINATES  FOR  CALCULATION  OF 
C ABSOLUTE  AND  RELATIVE  MOTION. 

C XX  — DIST.  FROM  CG  ALONG  CL  <♦  FORWARD) 

C YY  --  DIST.  FROM  CG  PERPENDICULAR  TO  CL  <♦  PORT  SIDE) 

IF  (ROOT  .LE.  0.0)  ROOT  = 12.0  * SORT ( BPL/520 . ) 

SKLG  = 1.0  / SORT (BPL/G) 

Vo  = V * 1.6878  / G 

V02  = 2.0  * V G 

VU4  = 4.0  * VG 

CLRSQ  = CLR  * * 2 

Ll  = L * 3 - 2 

L2  = LI  ♦ 1 

LJ  = L2  ♦ 1 

Ml  = M * 4 - 3 

M2  * Ml  ♦ 1 

M3  s M2  4 1 

M4  s M3  ♦ 1 

IF  (M  .GT.  0)  GO  TO  4 

MA  = 12 

MB  s 12 

GU  TO  3 

4 MA  = M * 2 - I 
MB  = MA  ♦ 1 
3 CONTINUE 

RL AD (5.506)  YMIN.YINC.ZMIN.ZINC.ISYM 
C YMIN,  YINC  — SCALING  FACTORS  FOR  PLOTS  OF  RESPONSES  (L) 

C YMIN  IS  MINIMUM  VALUE  FOR  RESPONSE  AMPLITUDE  AXIS  (GENERALLY  0.0) 

C YINC  IS  INCREMENT  OF  RESPONSt  AMP.  FOR  1.0  INCH  ON  AXIS 

C ZM IN,  ZINC  --  SCALING  FACTORS  FOR  PLOTS  OF  RESPONSES  (M) 

C IF  NOT  INPUT.  PROGRAM  WILL  ESTABLISH  A SUITABLE  SCALE 
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TOTAL  LENGTH  Of  AXIS  IS  8.  iNCHtS 
I STM  — CONTROL  FOR  TYPE  OF  SYMBOL  ON  PLOTS  (ISYM=3  FOR  ♦) 
IF  ISYM*0  IS  OESIRED,  0 MUST  BE  TYPED  ON  THE  CARD 

RAO(l)  = 0.0 

GO  TO  (6.  8.  208),  INO 


6 Rt  AD  (5.50A)  ( RAO ( I ) * 1=2,81) 

RAO (I)  — VALUE  OF  INPUT  FUNCTION  AT  FREUUENCY  U(I) 

IF  L= 1 <R.B.M.AMPLITUDE)/(WAVE  AMPLITUDE) 

IF  L=2  (HEAVE  AMPLITUDE) /(HAVE  AMPLITUDE) 

IF  L=3  (PITCH  AMPLITUDE) /(WAVE  SLOPE) 

IF  L=4  ( ROLL  AMPLITUDE) /(WAVE  SLOPE) 

IF  L=5  (VERT. SHEAR  AMP.)/(wAVE  AMP.*DISPL/L> 
IF  L=6  (RENO. MOMENT  AMP.)/(wAvE  AMP.*DISPL> 
IF  L=7  (ABSOLUTE  MOTION  AMP.)/(WAVE  AMP.) 

IF  L=8  (FOIL  LOADING) / (WAVE  AMP  . <*D  I SPL/L  ) 

Gu  TO  19 


IS  INPUT 
IS  INPUT 
IS  INPUT 
IS  INPUT 
IS  INPUT 
IS  INPUT 
IS  INPUT 
IS  INPUT 


8 Rt. AD  (5.50A)  (WAVEL(N),  N=1.NWL) 

WAVEL  — VALUES  OF  (WAVE  LENGTH  / SHIP  LENGTH) 

CAN  BE  IN  EITHER  ASCENDING  OR  DESCENDING  OuUER 
Rc-AD  (5,504)  (TRAO  (N),  N=1,NWL) 

C THAO  — VALUES  OF  TRANSFER  FUNCTION  CORRESPONDING  TO  wAVEL 

IF  (WAVEL (2)  .GT.WAVEL(l)  ) GO  TO  9 
OU  5 N=1,NWL 
Nn  - NWL  ♦ l - N 
Xk(NN)  = WAVEL (N) 

5 Y-<(NN)  = TRAO  (N) 

Du  7 N= 1 . NWL 
WAVEL(N)  = XR (N) 

7 T*AO(N)  = YR (N) 

9 DU  10  N=1,NWL 

10  WAVtL(N)  = WAVEL (N)  * RPL 
DU  18  1=2. NW 
WLI  = TRIG  / W2 ( 1 ) 

IF  ( WL I .GE.  WAVEL ( 1 ) .AND.  WLI  .LF.  wAvEL (NWL ) ) GO  TO  17 
GU  TO  (12,  14,  14,  14,  16,  16,  W.  lb),  L 


12 

Ir 

(WLI  , 

.LT. 

WAVEL 

(D) 

HAO(l)  = 

1.0 

IF 

(WLI  , 

,GT  • 

WAVEL 

(NWL)  ) 

RAO  ( I ) : 

: 0.0 

GU 

TO  18 

14 

IF 

(WLI  , 

.LT. 

wAVEL 

(1)  ) 

RAO  ( I ) = 

0.0 

IF 

(WLI  , 

,GT  • 

WAVEL 

(NWL)  ) 

RAO ( I ) = 1.0 

Go 

TO  18 

16 

RAO(I)  = 

0.0 

Gu 

TO  18 

17 

RAU(I)  = 

Y I NTP ( WL I 

. WAVEL.  THAO. 

NWL) 

16 

CUNTINUE 

GU 

TO  19 

206 

IF  1 

(ITAPE, 

,EQ. 

0)  GO 

TO  331 

NlW=NFR 

TfN=V*1. 688/SORT < 32. 1 74*XLND ) 
DU  310  1=1. NFN 
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I r N*  I 
Xl=FN(I) 

I”  (1.01*Xl.GE.TFN  .ANO.  .99*XI .LE.TFN)  GO  TO  311 

310  CONTINUE 

W-flTE  Cfe*  31<*»  TFN 
GJ  TO  777 

311  Do  312  1*1 »NBT A 
I BET  A* I 

X 1 =BET A ( 1 ) 

If  <1.01*Xl.GE.T«ETA  .AND.  ,99*Xl .LE. TbtTA)  GO  TO  313 

312  CONTINUE 

W**I  TE  (6.315)  TflETA 
GU  TO  777 

C T RAO  — VALUES  UF  TRANSFER  FUNCTION  FOR  F REQUtNC I tS  . 

313  Do  210  1 = 1. NT* 

X*  ( I ) =OMEGAE ( I ) 

DoM=wFR  ( IFN,  I , IHETA) 

T* ( I ) = OUM 

210  W'i(I)=0UM*0UM/32.174 

Go  TO (301 .302. 303, 304, 305, 305. 307, 305) ,L 

301  C*»LL  »ELAf3S(l,XX.rr) 

GO  TO  330 

302  OO  322  1=1. NT* 

322  TRAO(I)=MA(IFN,I,IdETA) 

Go  TO  330 

303  DO  323  1=1. NT* 

323  TRA0(I)=RA(1FN,I,IBETA) 

GO  TO  330 

304  DO  324  1=1, NT* 

324  TrAu(I)=ROLLA(IFN,1,IR£TA) 

GO  TO  330 

305  WRITE (6,316) 

316  F ORMAT ( 5X , *DAT  A NOT  AVAILABLE*) 

GO  TO  777 

307  C«LL  BELABS(2»XX,TY) 

Go  TO  330 

331  READ (5,508)  T*MlN,TWMAX,TWlNC 
C TWMI't,  TWMAX,  T* I NC  ARE  INCREMENTS  OF  NON-DIM.  ENC.  FREO. 

NT*= (T*MAX-T*MIN) /TWINC*1.  1 
RcAO (5,506)  ( T RAO (I) ,1  = 1, NT*) 

C TRAO  — VALUES  OF  TRANSFER  FUNCTION  FOR  FREO.  FROM  TWMIN  TO  TWMAX 

X*(l)  = TWMIN 

DO  213  1=2. NT* 

213  X*(1)=XW(I-1)  *TW I NC 
DO  211  1=1. NT* 

T a ( I ) = XW  ( I ) • SRLG 
IF  (V  .Ed,  0.0)  GO  TO  211 

T * ( I ) = (-1.0  ♦ SORT (1.0  ♦ V&4*T* ( I ) ) ) / VG2 

211  CONTINUE 
330  CONTINUE 

DO  218  1=1, NW 

If  (W(I> .GE.Tw(l)  .AND.  W(I) .LE.TW(NTw) ) GO  TO  217 
Go  TO  (212.214,214,214,216.216,214,216) , L 

212  If  ( w ( I ) .LT.  Tw ( 1 ) ) RAO ( I ) = 0.0 
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I*  ( W ( I > .GT.  TW(NTW))  RAO(I>  = 1.0 
Go  TO  218 

214  I*-  < M ( I ) ,LT.  Tm  ( 1 ) ) RAO(I)  = 1.0 

<W(I>  .GT.  TW(NTW))  RAO ( 1 ) « 0.0 
GO  TO  218 

216  RAU(I)  = 0.0 
GO  TO  218 

217  RAO ( I ) = YINTP  (W(I>,  TW.  TRAO.  NT W ) 

218  CONTINUE 

19  CONTINUE 

WRITE  (6*600)  (SHIPN(I) ,1=1.6) . BPL.  DISPL,  V.  TCLR(MA),  TCLH(MB). 
. CLR.  ALPHA 
W*ITE  (6.6J4)  TFT (L) 

WHITE  (6,603)  W(l),  RAO ( 1 ) 

VoC=VG*COS(TBETA*RAD> 

DO  30  I=2»NW 

Wt.  ( I ) =W  ( I ) -VGC*W2  ( I > 

Go  TO  ( 2U * 28.  22.  22.  24.  26.  28.  24),  L 
22  WL  = TPIG  / W2(I> 

RAU(I)  = RAO ( I ) * 360.  / WL 
GO  TO  28 

24  RAO(I)  = RAO ( I ) * DISPL  / BPL 
GO  TO  28 

26  PAO(I)  = RAO ( I ) * DISPL 
28  WlL ( I ) = TPIG  / m2 ( I ) / BPL 

W-<1TE  (6.606)  WLL  ( I ) . WE  ( 1 1 . W(I).  RAO ( l ) 

RAO ( I ) = RAO ( I ) * * 2 
30  CONTINUE 

WR I TE  < 6 .607 ) 

C CALCULATION  OF  RESPONSE  AMPLITUDES  WITH  323  ACTUAL  SEA  SPECTRA 

N6  = 323 
S*(l)  = 0.0 
SOMPRB  = 0.0 
EXTREME  = -0.0 
DO  50  K=1,NK 

RLAD  (2)  NREC.  SWH(K),  ( SW ( I > ♦ 1=2. Nw) 

MiK  = MI (K) 

PHB(K)  = OWSPC(MIk)  / SINDIA(MIK) 

IF  (K.EU.l  .OP.  K.EQ.51  .OR.  K.EU.101  .OR.  K.EU.151  .OR.  K.EU.201 
1 .OR.  K.E0.251  .OR.  K.EU.299)  GO  TO  34 
GO  TO  36 

34  WRITE (6.600)  (SHIPN( 1) ,1  = 1 .6) . RPL,  UISPL.  V,  TCLR(MA),  T CLR ( MB ) , 
. CLR.  ALPHA 

If  (M  .EU.  0)  WRITE  (6,608)  YT(Ll).  YT(L2).  YT(L3), 

. rCLR(4),  TCLR  (4) , TCLR (4)  . TCLR<4) 

IF  (M  ,GT.  0)  WRITE  (6,608)  YT(Ll),  YT (L2)  ♦ YT (L3) . YT2(M1). 

. YT2(M2),  YT2 (M3) , YT2(M4) 

36  DO  40  I=1»NW 

40  Fh  ( I ) = RAO ( I ) • SW(I) 

EO  = SIMPUN  (W,  FR,  NW) 

DO  42  1=2, NW 

42  FR ( I ) = FR ( I ) * WE (I)  * WE (I) 
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EV  ■ SIMPUN  (M,  FR,  NM) 

DO  47  1*2, NM 

47  Ft*  (I)  * FR  < I ) • ME  (I)  • ME  (I) 

EA  * SIMPUN  (M,  FR,  NM) 

MM  * SORT (EV/ED) 

EVEO  * 572.9578  • MM 
SORTED  ■ SORT (ED)‘ 

RA (K , 1 ) * 2.0  • SORTED 
OTIME  * 68.0  - 1.4  • SMH(K) 

EvEDT  * EVEO  * OTIME 
FRA2  = 2.0  • ALOG(EVEDT) 

RA(K,2)  * SORT (FRA2)  * SORTED 
IF  (ALPHA.  GT.  0.0)  GO  TO  41 
RA (K , 3)  = -0.0 
GU  TO  44 

41  FRA3  * 2.0  * ALOG  (EVEDT/  ALPHA) 

RA (K ,3)  * SORT (FRA3)  • SORTED 

IF  (RA (K ,3)  .GT.  EXTREME)  EXTREME  * RA(K,3) 

44  CONTINUE 

IF  (M  .GT.  0)  GO  TO  46 

MRITE  (6,610)  NREC,  SMH(K),  (RA(K,J),  J*I,3) 

GO  TO  48 

46  GO  TO  (51,  51,  53,  51,  54,  56,  57,  53),  M 
51  ECST  = CLRSU  / (2.0*ED) 

IF  (ECST  .GT.  600.0)  GO  TO  59 
Rd(K)  = EVED  * EXP ( -ECST ) 

GO  TO  58 

53  ECST  = CLR  * • 2 / (2.0  * ED)  ♦ HOOT  • • 2 / (2.0  * EV) 

IF  (ECST  .GT.  600.0)  GO  TO  59 

R2(K)  * EVED  * EXP (-ECST) 

GO  TO  58 

54  R2  (K)  * XKK  * 4.2  * EV 
GO  TO  58 

56  R<!  (K)  = 2.0  * SQRT(EA)  * RAD  * CLR  / G 

GO  TO  58 

57  9d  (K>  a 2.0  * SORT (EA)  / G 
GO  TO  58 

59  R2(K)  * 0.0 

58  MRITE  (6,610)  NREC,  SMH(K),  (RA(K,J>,  0*1,3),  R2(K) 

48  SUMPRB  a SUMPR0  ♦ PRB  (K ) 

50  CONTINUE 

MRlTE  (6,611)  EXTREME 

C CALCULATION  OF  RESPONSE  AMPLITUDES  MlTH  PIERSON-MOSKOMITZ  SPECTRA 

SMHPM(l)  a 0.0 
R2PM ( 1 ) * 0.0 
RAPM(1,1)  * 0.0 
RAPM(1,2)  a 0.0 
RAPM (1,3)  = 0.0 

M*IT£ (6,600)  (SHIPN(I) ,1*1,6) , BPL,  DISPL,  V,  TCLR(MA),  TCLR(MB), 

. LLR,  alpha 

IF  (M  .EQ.  0)  MRITE  (6,608)  YT(Ll),  YT (L2) , YT(L3), 

. TCLR (4) , TCLR (4 ) , TCLR(4),  TCLR(4> 

IF  (M  .GT.  0)  MRITE  (6,608)  YT(Ll),  YT(L2),  YT (L3) , YT2(M1), 
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• r T2(M2),  YT2(M3).  YT2(M4) 

WRITE(6.618) 

DO  70  K»2,46 

Rt  AO  (A)  SWHPM(K),  (SW(I) ,I«2,NW> 

DU  60  I>1»NW 

60  FR(I)  * RAO ( I ) * SW  ( I ) 

EO  * SIHPUN  ( W . FRt  NW) 

IF  (ED.GT.O)  GO  TO  63 
RAPM(K.l)  a 0.0 

RAPM (K  * 2 ) a 0.0 
RAPM(K,3)  a 0.0 
R2PM  (K ) a 0.0 
GU  TO  65 

63  SORTEO  a SQRT(EO) 

DO  62  1=2. NW 

62  Frf(I)  = FR(I)  * WE (I)  * WE ( I ) 

EV  a SIMPUN  (W*  FR.  NW) 

DU  67  I=2.NW 

67  F C I ) a FR  ( I ) * WE  ( I ) * WE  ( I ) 

EA  a SIMPUN  (W.  FR.  NW) 

Ww  = SORT (EV/ED) 

EVED  = 572.9578  * WW 
RAPM(K.I)  = 2.0  * SORTED 
OTIME  = 68.0  - 1.4  * SWHPM(K) 

EvEOT  = EVED  * OTIME 
FRA2  = 2.0  * ALOG (EVEOT) 

RAPM ( K . 2 ) = SORT (FRA2)  * SORTED 
IF  (ALPHA.  GT.  0.0)  GO  TO  61 
RAPM (K.3)  = -0.0 
GO  TO  64 

61  FHA3  = 2.0  * ALOG (EVEOT  / ALPHA) 

RAPM (K.3)  = SORT (FRA3)  * SORTED 

64  CONTINUE 

IF  (M  .GT.  0)  GO  TO  66 

65  WHITE (6*610)  K,  SWHPM(K).  (RAPM(K.J),  J=l,3) 

GO  TO  68 

66  GU  TO  (71.  71.  73.  71.  74.  76.  77,  73).  M 
71  ECST  = CLRSO  / (2.0*ED> 

IF  (ECST  .GT.  600.0)  GO  TO  79 
RCPM(K)  = EVED  * EXP(-ECST) 

GO  TO  78 

73  ECST  = CLR  * * 2 / (2.0  * ED)  ♦ RDOT  * * 2 / (2.0  * EV) 
IF  (ECST  .GT.  600.0)  GO  TO  79 

R2PM < K ) = EVED  * EXP (-ECST) 

GO  TO  78 

74  R2PM(K)  = XKK  * 4.2  * EV 
GO  TO  78 

76  R2PM(K)  a 2.0  * SORT (EA)  • RAO  * CLR  / G 
GO  TO  78 

77  R*PM(K)  a 2.0  * SORT (EA)  / G 
Go  TO  78 

79  R2PM (K)  a 0.0 

78  WRITE  (6.610)  K,  SWHPM(K).  (RAPM(K.J).  J=l,3).  R2PM(K) 

68  CONTINUE 
70  CONTINUE 
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C PROBABILITY  COMPUTATIONS 

WRIT£(6,600)  (SHIPN(I) . 1*1 *6) « BP L,  D1SPL*  V*  TCLR(MA) * TCL«<MB>, 
• CLR.  ALPHA 

NPC  * 36 

6PM  ■ 1.0 

IF  (L  .EQ.  5)  OPM  ■ 10.0 

IF  (L  .EG*  6)  OPM  ■ 1000.0 

GPM2  ■ 1.0 

IF  (M  .£0,  6)  GPM2  • 0.01 
IF  (M.EQ.?)  6PM2  - 0.01 
DO  80  1*1, NPC 
6P2(I»  » GPP (I)  • OPM2 
80  GP(I>  ■ OPP(I)  * GPM 
WRITE  (6.646) 

WRITE  (6.628)  YT(Ll).  YT(L2).  YT2(M1).  YT2(M2),  YT2(M3) 

OU  92  1*1 .NPC 
ZSUM(I)  • 0.0 
ZPE(I)  * 0.0 
OU  92  J*l,2 
YSUM(I.J)  > 0.0 
YPE  (I.J)  ■ 0.0 
92  CONTINUE 

OU  100  J-l.P 
OU  100  K*1 . 323 
OU  94  1*1 .NPC 

IF  (RA  (K.J)  .LE.  OP ( I ) ) 60  TO  94 
YSUM(I.J)  * YSUM(I.J)  ♦ PRB (K) 

GU  TO  95 

94  CONTINUE 

95  IF  (J  .£Q.  2)  GO  TO  100 
IF  (M  .EQ.  0)  GO  TO  100 
DU  96  1=1. NPC 

IF  (R2(K)  .LE.  GP2(I))  GO  TO  96 
ZSUM(I)  = ZSUM(I)  ♦ PRB (K) 

GU  TO  100 

96  CUNTINUE 
100  CONTINUE 

DU  110  1*1. NPC 
II  * 1-1 

IF  (I.EO.l)  II=I 
OU  102  J*1 *2 

102  YPE (I.J)  * YPE(II.J)  ♦ YSUM(I.J) 

It-  (M  .GT.  0)  GO  TO  105 

WRITE  (6,630)  GP ( I ) * (YPE(I.J).  U=1.2> 

GU  TO  110 

105  ZPE(I)  = ZPE(II)  ♦ ZSUM(I) 

WRITE (6,630)  GP ( I ) * ( YPE ( I , J) , J*1 ,2) . GP2(I>,  ZPE(I) 

110  CUNTINUE 

IF  (IP  .EQ.  0)  GO  TO  200 

C PLOTS  OF  PERCENTAGE  EXCEEDANCE  DIAGRAMS 

GU  TO (112, 112, 115, 114, 112,1 12) , IP 
112  CALL  PLOTPR  <1,  GPM) 

It-  (M  .EQ.  fin  to  lin 
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114  CALL  PLOTPR  (2.6PH2) 

115  CONTINUE 

C PLOTS  OF  RESPONSES  VS.  SIGNIFICANT  WAVE  MT. 

GO  TO  (122 *122 *124 *126 *122 *122). IP 
122  CALL  PLOTRS  (1*1) 

IF  (IP  .EQ.  1)  GO  TO  200 
IF ( IP.EQ.6)  GO  TO  126 
C*LL  PLOTRS  (1*2) 

IF  (IP  .EQ.  2)  GO  TO  200 
124  CALL  PLOTRS  (1.3) 

IF  (IP  .EQ.  3)  GO  TO  200 
If  (M  .EQ.  0)  GO  TO  200 
126  CALL  PLOTRS  (2,1) 

200  CONTINUE 

CALL  PLOT  (0.0,  0.0,  >3) 

CALL  PLOT  (0.0,  0.0,  999) 

314  FORMAT (10X.#TFN  = *,E12.5»  *NOT  FOUND*) 

315  FORMAT (10x«*TBETA  = *,E12.5,  *NOT  FOUND*) 

500  FORMAT  (6A10) 

501  FORMAT  (9F0.2) 

502  FORMAT  (1013) 

504  FORMAT  (10F6.2) 

506  FORMAT  (4F6.3,  16) 

508  FORMAT  (1OF0.3) 

600  FORMAT  (1H1,  10X,  6A10  //  17H  SHIP  LENGTH  a,  F6.1,  3H  FT,  5X» 

, 14HDISPLACEMENT  *.  F7.1,  5H  TONS,  bX,  7HSPEEO  =,  F5.1,  6H  KNOTS, 

. bX,  2A10,  2H  r,  F5.1,  3H  FT,  5X, 

. fMALPHA  a,  F5.2  / 3X,  129(1H*)  ) 

603  FORMAT  ( 24X , 2F12.3) 

604  FORMAT  (70H0  TRANSFER  FUNCTION  INTERPOLATED  AT  .025  INCREMENTS  OF 
. WAVE  FREQUENCY  //  17X,  22HENC.FREQ.  WAVE  FREQ.  / 

. 3BH  WL/L  (RAO/SEC)  (RAO/SEC)  , A10  ) 

606  FORMAT  (4F12.3) 

607  FORMAT  (19H0  WL  * WAVE  LENGTH,  8X,  15HL  = SHIP  LENGTH.  8X, 

1 25HWA  a WAVE  AMPLITUDE  (FT)  / 33H  RBM  = RELATIVE  BOW  MOTION  (F 
2T),  5X » 28HHEAVE  a HEAVE  AMPLITUDE  (FT),  5X,  29HPITCH  = PITCH  AM 

3PLITUOE  (DEG),  5X,  27HROLL  = ROLL  AMPLITUDE  (DEG)  / 

4 J6H  VSH  a VERTICAL  SHEAR  FORCE  (TONS), 

1 5X.  3OH0MT  » BENDING  MOMENT  (FT-TONS)  / 

2 02H  ABM  = ABSOLUTE  MOTION  (FT)  , 5X, 

, 26HF0IL  LD  a FOIL  LOAD  (TONS)  ) 

608  Format  UNO,  33X , 3A10  / 28X,  42UH-)  / 69H  WAVE  SIGNIFIC 

.ANT  SIGNIFICANT  MOST  PROBABLE  EXTREME  VALUE,7X, 

. 4A10  / 72  H SPECTRA  WAVE  HT.  (FT)  VALUE  EXT 

• Re. ME  VALUE  FOR  DESIGN  USE  , 4X,  40  (1H-)  ) 

610  FORMAT  (19,  F13.2,  3F14.2,  F 32.2) 

611  FORMAT  (1H0,  43X,  10HEXTREME  « . F10.2) 

618  FORMAT  (18HOPIERSON>MOSKOWITZ) 

628  FORMAT  (1H0,  2A10,  26H  PERCENTAGE  EXCEEDANCE  , 3A10  / 23X, 

. 21HS1GN.  MOST  PROB.EXT.,  28X,  8HP.C.EXC.  ) 

630  FORMAT  (F16.1,  F12.2,  F10.2,  14X.  F14.1,  F12.2) 

646  FORMAT  (75HOPROBABILITY  BASED  ON  OCEAN  WAVE  STATISTICS  FROM  AREA  2 

• - HOGBEN  ♦ LUMH  ) 

777  CONTINUE 

END 
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SUBROUTINE  RELABS(ITAB.X.Y) 

C ITAB  = 1 TO  COMPUTE  RELATIVE  MOTION 
C ITAB  = 2 TO  COMPUTE  ABSOLUTE  MOTION 

CUMMON  /BL5/  WAVEL (50 ) * TRAO ( 50 ) ♦ YR (50 ) » XR ( 50 ) * XW  ( 50 ) » Tw ( 50 ) 

COMMON  /BL8/  MA(4*30»3) »HP (4*30*3) »PA(4»30»3) «PP (4*30*3) * 

X RA (4*30*3) »RP(4*30*3) 

CUMMON  /BL9/  FN  (4) « ME ( 30 ) *MN(30) »BETA(3) *WFR(4,30.3) 

CUMMON  /BLlO/  NFN*NFR.NBTA*IFN,1BETA 
DIMENSION  PRAO (30) 

CuMPLEX  2A* 1 1 
RaD*. 0174533 
1 1 =CMPLX ( 0 • * 1 * ) 

BcT=BETA(IBETA)*RAD 

XY=X*COS(BET)-Y*SIN(BET) 

DU  10  N=1*NFR 
HtAVE=HA(IFN.N.lBETA) 

Pi  TCM=WN  (N)  *PA  ( IFN.N*  I BETA) 

RULL=WN(N)*RA( IFN.N.IBETA) 

Ht A VEP=RAD*HP< IFN.N.IBETA) 

P I TCHP=RAD*PP< IFN.N.IBETA) 

RULLP=RAD«RP( IFN.N.IBETA) 

Za=HEAVE*CEXP(-II*HEAVEP) ♦Y*ROLL*CEXP(-II#ROLLU) 

X -X*PITCH*CEXP(-II*PITCHP) 

If (ITAB.EQ.1)  ZA=ZA-CEXP(II*WN(N)*XY) 

T0AU(N)=CABS(ZA) 

P-<AU(N)=ATAN2(-AIMAG(ZA)  *REAL(ZA)  ) 

10  CONTINUE 

If (ITAB.EQ.1)  WRITE (6* 100)  FN(IFN) .BtT  A ( I8ET  A ) ,X*Y 
IF (ITAB.EQ.2)  WRITE (6*200 ) FN ( IFN) *BETA ( IBETA) ,X* Y 
WRITE (6*300)  (WE (N) « TRAO (N) ,PRAO(N) »N=1 *NFR) 

100  FURM4T (///10X. “RELATIVE  MOTION  AND  PHAS£*//10X .“FN  = *,F8.2/ 

X 1 OX  * “BETA  = * »F8 .2/ 1 OX  » “X  = * .F 8 .2/ 1 OX . “T  = *.F8,2/) 

200  FORMAT ( ///l OX . ‘ABSOLUTE  MOTION  AND  PHASE *// 1 OX  * *FN  = *«F8.2/ 

X 1 OX  * “BET  A s *.F8.2/10X»*X  = * »F 8 .2/ 1 OX  * * Y = *»F8.2/> 

300  F JRMAT ( 12X.*WE*.9X. “AMPL I TUDE*. 1 Ox. “PHASE*/ (10X.F7. 3.2 (SX.E 12.5) ) ) 
RcTURN 
E NO 

“DECK  DaTN 

SUBROUTINE  DATAIN(XLND» ITHPM* ITSWYM, ICMECK) 

CUMMON  /BL8/  HA <4 , 30 . 3 ) *HP (4 ♦ 30 . 3) ,PA ( 4 . 30 ♦ 3 ) . PP (4 , 30 » 3 ) * 

X RA(4,30.3) *RP(4«30.3) 

CUMMON  /BL9/  FN (4 ) , WE ( 30 ) * WN ( 30 ) t BET A ( 3) , WFR (4 , 30 ♦ 3 ) 

CUMMON  /BL10/  NFN*NFR,NBTA*IFN,IBtTA 
DIMENSION  BFN (4) *BWE (30) ,BB£TA(3) 

SURTGL=SORT (32.174/XLND) 

If  (ITHPMMTSRYM.E0.2)  GO  TO  15 
IF (ITHPM.EQ.O)  GO  TO  25 
RtAD (22)  NFN,NFR.NBTA 

RcAD ( 22)  (FN ( I ) *1=1 *NFN) * (WE ( I ) . 1=1 *NFR) * (BETA ( I ) .1=1 .NdTA) 

RtAD (22)  ( ( (WFR< JJ,N*MM) ,HA(JJ»N*MM) *HP(JJ*N*MM) *PA( JJ.N.MM) . 

X PP (JJ.N.MM) *JJ=1*NFN) *N*1 »NFR) »MM= 1 »NBTA ) 

DU  35  N=1*NFR 
Wt (N) =WE (N) “SQRTGL 
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00  35  JJ* 1 »NFN 
DO  35  MH»1 *NBTA 

Wf  «(  JJ,N,MM)aWFR(JJ,N,MM)*SQRTGL 
RA< JJ,N,MM>»0, 

35  RR(JJ»N,MM)»0. 

RtTURN 

25  RtAD (23)  NFN,NFR,NBTA 

RtAD (23)  (FN ( I ) *1*1 ,NFN) • (HE ( I ) , I»1 *NFR) * (BETA ( I ) , I«1 ,N8TA) 

RtAD (23)  ( ( (WFR( JJ»N,MM) *DUM»OUM,RA ( JJ*N,MM) ,RP< JJ,N»MM) ,DUM,DUM, 

X JJ=1,NFN> ,N=1,NFR) ,MM«1,NBTA) 

DO  45  N*1,NFR 
Wt(N)=WE(N)*SQRTGL 
DO  45  JJ*1»NFN 
DO  45  MM»1,NBTA 

WfH(JJ,N,MM)»WFR(JJ,N,MM)«SQRTGL 
HA ( JJ«N«MM) *0. 

HR< JJ»N,MM)=0. 

PA ( J J*N  »MM) =0  » 

45  PP( JJ»N,MM)=0. 

RtTURN 

15  RtAD  ( 22 ) NFN»NFR»NBTA 
C If (NFN.EQ.777)  GO  TO  777 

C NOTE  ~ NEED  TO  ACCOMMODATE  DATA  FOR  0.LE.BETA.LT.9Q. 

C DATA  RECORD  BEFORE  EOF  IS  777*777,777. 

RcAD(23)MFN,MFR*M0TA 

If (NFN.Ea.HFN.AND.NFR.EQ.MFR.AND.NBTA.EO.MBTA)  GO  TO  10 

HRITE (6,100)  NFN,NFR,NBTA,MFN,MFR,MBTA 

ICH£CK=777 

RtTURN 

10  RtAD ( 22 ) (FN(I) ,I*1,NFN) * (HE(I)*I=1*NFR) , (BETA(I) »I=1.NBTA) 

RtAD (23)  (BFN(I) , I=1,NFN> , (BHE ( I ) * 1 = 1 *NFR) , (BRET  A ( I ) ,1  = 1,NBTA) 

If (ICHECK.EQ.O)  GO  TO  60 
DO  20  I = 1 »NFN 
BI=BFN(I) 

X 1 =F  N ( I ) 

If  (1.0MXI.LT.BI  .OR.  ,99*Xl.GT.BI)  GO  TO  50 
20  CONTINUE 

DO  30  1=1, NFR 
B 1=BWE ( I ) 

Xl=WE (I > 

If (1.01*XI.LT.BI  .OR.  ,99*Xl.GT.Bl)  GO  TO  50 
30  CONTINUE 

DU  40  1 = 1 »NBT A 
Bi=BBETA ( I ) 

Xl=BET  A ( I ) 

If <1.01*XI.LT.BI  .OR.  ,99»XI.GT.BI ) uO  TO  50 
40  CONTINUE 

WRITE (6, 101 > 

If (ICHECK.EU.l)  GO  TO  60 

IOHECK=777 

RtTURN 

50  >R I TE (6,200) 

WRITE (6,201 ) (FN ( I ) ,1=1 ,NFN) 

WRITE (6,201)  ( WE ( I ) ,1=1, NFR) 
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W* I TE (6  *20 1 ) (BETA  < I ) «I=1»N8TA) 

W4lTE<6»202) 

W*ITE<6.201>  <BFN<1) .I»1.NFN> 

W*ITE<6.201)  (BWE(I) .1=1. NFR) 

WRITE (6*201 ) (BBETA(I) ,I=1.NBTA) 

ILHECK=777 

ReTURN 

60  Rt AD (22 ) ( ( (OUM,HA( JJ.N.MM) .HP (JJ.N.MM) .PA (JJ.N.MM) ,PP (JJ.N.MM) , 

X J J= 1 »NFN) *N= 1 *NFR ) »MM=1 » NBTA) 

RtAD (23)  ( ( (WFR{ JJ.N.MM) .DUM.OUM.RA (JJ.N.MM) .RP(JJ.N.MM) ,OUM. 

X DUM. JJ=] .NFN) .N=l .NFR) »MM=1 *NBTA) 

C wFR,  SWAY  AMPLITUDE  * SWAY  PHASE.  YAW  AMPLITUDE  AND  YAW  PHASE  ARE 
C LOCATED  IN  THE  *DUM*  locations. 

C THEY  ARE  NOT  USED  AT  PRESENT  AND  THEREFORE  ARE  NOT  DIMENSIONED  ETC. 
Du  55  N= 1 «NFR 
We(N)=WE(N)*SQRTGL 
Du  55  J J= 1 . NFN 
DU  55  MM= 1 ,NBT  A 

55  WfR< JJ.N.MM) =*FR< JJ.N.MM) *SQRTGL 

100  FORMAT ( lhl .9X.*DATA  SETS  DO  NOT  MATCH*/  10X.  *F OR  HPM  NFN  = «. 
X lo,*.  NFR  = *.13. *»  NBT A = *» I3/10X.*FOR  SRYM  NFN  = *,I3. 

X *,  NFR  = *,I3»*.  NBTA  = *.I3> 

101  FORMAT <///10X.*DATA  FROM  TAPES  IS  COMPATIBLE*) 

200  FURMAT(1H1,9X.*HPM  - FN.  WE.  BETA*/) 

201  FORMAT  { 10X.10F10.5) 

202  FuMMAT (///9X,*SRYM  - FN.  WE.  BETA*/) 

Re.  turn 

e *0 

•DECK  Y 1 NT 

function  yintp (xa.x.y.n) 

DIMENSION  X ( 1 ) , Y < 1 > 

1 DU  10  1 = 1. N 

IF  (X(I)-XA)  10.10.2 

2 I >1=1-2 

1 1-  ( IN)  4.4.6 
4 I M=1 

60  TO  12 
6 NM=N-3 

If  (IN-NN)  12.12.8 
8 I .=NN 
GO  TO  12 
10  CONTINUE 
12  Iu=In*3 
Y 1NTP=0. 

DU  20  I = I N . ID 
PRDD=Y ( I ) 

00  16  J= IN. 10 
IMI-J)  15.16.15 

15  PRUO=PROO*(XA-X(J) )/(X(I)-X(J) > 

16  CONTINUE 

20  Y1NTP=YINTP*PR0D 

21  RcTURN 
E>)D 
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FUNCTION  51 MPUN  ( X * Y «N) 

FORTRAN  IV  FUNCTION  FOR  SIMPSONS  RULE  INTEGRATION 

EUUAL  OR  UNEQUAL  INTERVALS.  W.  FRANK.  DTM0,  CODE  584.  7-16-65 

DIMENSION  X (50) * Y (50) 

2 f ORMAT (23M  NON  MONOTONE  X SlMPUN  I4.1PE12.4) 

IF (N-2)  7.5*4 

5 S=(Y(1)*Y(2) )*<X(2)-X(l) )/2. 

GU  TO  6 

7 S=0. 

GU  TO  6 
4 M=N-1 

S= (X(2)-X(l) )/6.*(Y ( 1 ) * ( (X(2)-X(3) )/(X(l)-X(3) ) *2. ) ♦ Y (2)*( ( X ( 1 ) -X ( 
X3>)/(X(2)-X(3))»2.)-Y(3)*(X(2)-X(1) )**2/( (X(1)-X(3))*(X(2)-X(3))>) 
L*=2 

IF (N.EQ.3)  GO  TO  8 

5=5* (X(3)— X<2) )/6.*(Y (2)*( ( X ( 3) — X (4 ) )/(X(2)-X (4) ) *2.) ♦ Y ( 3 ) * ( ( X ( 2 ) - 
XX  (4)  )/<X(3)-X(4>  )*2.)-Y(4)»(X(3)-X(2)  )**2/<  (X(2)-X(4)  ) * ( X ( 3 ) -X  (<* ) ) 
X)  ) 

L«=3 

8 DU  1 K=LB.M 

IF ( A8S ( X (K* I ) -X ( 1 ) ) *GE. ABS (X(K)-X(l)))  GO  TO  1 

3 )HITE<6.2>  K * X (K  ) 

GU  TO  7 

I S=S* (X(K*1 )-X(K> ) /6.*(Y(K)«M  (X (K*l)-X (K-l ) ) / ( X ( K ) -X (K-l ) ) *2. ) ♦ Y (K ♦ 
Xl>*( (X(K)-X(K-1))/(X(K*I)-X(K-1) )»2.)-Y(K-l)*(X(K*l)-X(K) )**2/( (X ( 
XK)-X(K-l) )*(X(K«l)-X(K-l)))) 

6 SiMPUNrS 
RETURN 
END 
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SUBROUTINE  PLOTPR  <N.  GPM) 

INSTRUCTIONS  FOR  PLOTTING  PERCENTAGE  EXCEEOANCE  DIAGRAMS 
COMMON  /BLI/  SHIPN (6) * TFT (8) * YT<24),  YT2(32>«  TCLR(16>,  XTIT(3>, 
. PCT I T ( 3) » BUFF ( 1024) * XP(325>,  YP<325>.  XMlN,  XMAX.  XINC,  XLG, 

. YMlNt  YlNC*  ZMIN,  ZINC*  ISYM*  TBS<3)»  V.  L.  CLR*  BPL ♦ DISPL*  M 
COMMON  /BL3/  GP ( 36 ) « GP2(36).  YPE(36.2)*  ZPE(36> 

CALL  PLOT  (10.5*  0.0*  -3) 

CALL  AXIS  (0.0*  0.0*  PCTIT*  21*  5.0*  90.0*  0.0*  20.0) 

1 YY1  = 8.6 

y Y 2 * B • 2 / 

call  SYMBOL  (0.2*  YY1.  0.12*  SHIPN*  0.0*  60) 

CALL  SYMBOL  (1.0*  YY2 ♦ 0.12*  3HL  = » 0.0*  3) 

CALL  NUMBER  (1.4*  YY2*  0.12*  BPL*  0.0,  1) 

CALL  SYMBOL  (2.05,  YY2*  0.12*  2HF T « 0.0,  2) 

CALL  SYMBOL  (3.0,  YY2 * 0.12*  3HV  = , 0.0*  3) 

CALL  NUMBER  (3.4,  YY2,  0.12,  V,  0.0*  1) 

CALL  SYMBOL  (3.95.  YY2,  0.12*  5HKN0TS.  0.0,  5) 

84  CaLL  SYMBOL  (1.0,  7.4,  0.10,  TWS,  0.0,  30) 

It-  (N.EU.l ) GO  TO  10 
It-  (M.EQ.7)  GO  TO  10 
MM  s M * 2 - 1 

CALL  SYMBOL  (5.0,  YY2,  0.12,  TCLK(MM),  0.0,  20) 

CALL  SYMBOL  (7.4,  YY2 , 0.12,  1H=.  0.0,  1) 

CALL  NUMBER  (7.6,  YY2 , 0.12*  CLR*  0.0,  1) 

CALL  SYMBOL  (8.2,  YY2,  0.12,  2HFT * 0.0,  2) 

10  IF (N.E0.2)  GO  TO  12 
LL=L*3-2 

CYCLE  = 1.0  / 3.75 

CALL  LBAXS  (0.0*  0.0*  YT(LL).  -30,  7.5*  0.0*  GPM,  CYCLE) 

Nr)  = 7 
NP  = 29 
GO  TO  15 


12  MM  = M * 4 - 3 
CYCLE  = 0.5 

CALL  LBAXS  <0.0,  0.0,  YT2 (MM) , -40 , 6.0,  0.0,  GPM,  CYCLE) 
Nr)  = 1 
NP  = 35 
15  CUNTINUE 

XP(NP*1)  * GPM 
XP(NP*2)  a CYCLE 
YP(NP*1)  = 0.0 
YP(NP*2)  * 20.0 
DO  18  1=1, NP 
II  = NB  - I ♦ I 
IF(N.E0.2)  GO  TO  17 
XP  < I ) =GP (II) 

Go  TO  18 

17  XP  < I ) = GP2 (II) 

18  CONTINUE 

00  25  1=1, NP 
II  = NB  - 1 ♦ I 
IF (N.EQ.2)  GO  TO  22 
YP ( I ) =YPE (11,1) 

GU  TO  25 
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22  Y^(I)  = ZPE(II) 

25  CONTINUE 

CALL  LGLIN  <XP«  YP*  NP*  1*  0*  ISYM,  -1) 
IF  (N  .GT.  I)  GO  TO  30 
DU  28  1=1 »NP 
II  = NB-1  ♦ I 
28  YP(I>  = YPE  ( 1 1 * 2 ) 

CALL  LGLIN  (XP*  YPi  NP*  1*  0*  ISYM*  -1) 
30  CONTINUE 
RtTURN 
end 


SUBROUTINE  PLOTRS  (N.  J> 

C INSTRUCTIONS  FOR  PLOTTING  RESPONSE  AMPLITUDES  VS.  SIGN. WAVE  HT. 

COMMON  /8L1  / SHIPN  (6)  « TFT<8>.  YT<24>,  YT2<32).  TCLR<16).  XTIT(3), 
. RCT  IT  (3)  . 0UFF(1O24).  XP<325>.  YP<325),  XMIN,  XMAX.  XlNC.  XLG. 

. YMIN.  YINC.  ZMIN,  ZINC.  ISYM,  TWS<3).  V.  L.  CLR,  BPL.  DISPL.  M 
COMMON  /0L2/  SWM(323).  RA<323.3>.  R2(323).  NK. 

. SWMPM (51 ) » RAPM (51.3).  R2PM(5I) 

DIMENSION  ST1(2),  ST2<3>.  ST3<4) 

DATA  ST  1 / IOhSIGNIFICAN,  10HT  VALUES  / 

D«TA  ST2  / 10MMOST  PROBA.  10HBLE  EXTREM,  10HE  VALUES  / 

DATA  ST 3 / 10HEXTREME  VA.  iOHLUES  FOR  D,  10HESIGN  CONS. 

. 1 OH IDERAT ION  / 

CALL  »LOT  <10.5.  0.0.  -3) 

IF(N.E0.2)  GO  TO  12 
IF (Y1NC.GT.0.)  YPMAX=10.*YINC 
GO  TO  14 

12  IF  (ZINC  .GT.  0.0)  YPMAX  » 10.0  * ZINC 

14  NR  = 0 

DO  35  K=1,NK 

IF  (SWH(K)  .GT.  XMAX)  GO  TO  35 
IF (N.EQ.2)  GO  TO  22 

IF <RA(K,J) .GT. YPMAX  .AND.  YINC.GT.O.)  GO  TO  35 
GO  TO  24 

22  IF  <R2(K)  .GT.  YPMAX  .AND.  ZINC  .GT.  0.0)  GO  TO  35 
24  NP  = NP  ♦ 1 

XP(NP)  = SWH(K) 

IF (N.EQ.2)  GO  TO  32 
YP(NP)=RA(K,J) 

GO  TO  35 

32  YP(NP)  = R2(K) 

35  CONTINUE  • '' 

NP1  = NP  ♦ 1 
NP2  = NP  ♦ 2 
XP(NPl)  = XMIN 
XP(NP2)  = XlNC 
IF (N.EQ.2)  GO  TO  42 
IF (YINC.LE.O.)  GO  TO  44 
YP(NPl)  = YMIN 
YP(NP2)  » YINC 
GO  TO  45 

42  IF  (ZINC  .LE.  0.0)  GO  TO  44 
YP(NPl)  = ZMIN 
YP(NP2)  = ZINC 
GO  TO  45 

44  CALL  SCALE  <YP,  8.0.  NP.  I) 

45  CALL  AXIS  (0.0.  0.0*  XTIT*  -30.  XLG.  0.0.  XMIN.  XlNC) 

IF (N.EQ.2)  60  TO  52 

LL=L*3-2 

CALL  AXIS  (0.0.  0.0.  YT(LL).30.  8.0.  90.0.  YP(NPl).  YP(NP2>) 

GO  TO  54 

52  MM  r M * 4 - 3 

CALL  AXIS  (0.0.  0,0.  YT2 (MM) . 40.  8.0.  90.0.  YP(NPl),  YP(NP2)> 

54  CALL  SYMBOL  (0.5*  9.2.  0.12*  SHIPN.  6.0.  60) 
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CALL  SYMBOL  (1.0,  8.6,  0.12*  3HL  = , 0.0*  3) 
CALL  NUMBER  (1.4*  8.6*  0.12*  BPL*  0.0*  1) 

CALL  SYMBOL  (2.05*  8.6*  0.12*  2HFT,  0.0*  2) 
CALL  SYMBOL  (3.0*  8.6*  0.12*  3HV  >*  0.0*  3) 
CALL  NUMBER  (3.4*  8.6*  0.12*  V*  0.0*1) 

CALL  SYMBOL  (3.95*  8.6*  0.12*  5HKN0TS,  0.0*  5) 


CALL  SYMBOL  (1.0*  7.6* 
IF(N.EQ.2)  GO  TO  58 
GU  TO  (91,92*93) *J 

91  CALL  SYMBOL  (1.0,  8.0, 
GU  TO  94 

92  Call  SYMBOL  (1.0,  8.0, 
GU  TO  94 

93  CALL  SYMBOL  (1.0,  8.0, 

94  Gu  TO  60 

58  If  <M  .EQ.  7)  GO  TO  60 
= M * 2 - 1 

CALL  SYMBOL  (5.0,  8.6* 
CmLL  SYMBOL  (7.4,  8.6, 
CALL  NUMBER  (7.6,  8.6, 
CALL  SYMBOL  (8.2,  8.6, 
60  C«LL  LINE  (XP,  YP,  NP, 
Y^MAX  = 10.0  « YP ( NP2 ) 
NP  = 0 


0.10, 

TBS* 

0.0* 

30) 

0.10* 

ST1  ♦ 

0.0, 

20) 

0.10* 

ST2* 

0.0, 

30) 

o 

• 

o 

ST3 , 

0.0, 

40) 

0. 

12, 

TCLR (MM) , 

0.0,  20) 

0. 

12, 

1 H=  » 0.0, 

1) 

0. 

12, 

CLR » 0.0, 

1) 

0. 

12, 

2HFT,  0.0. 

r 2) 

1, 

-li 

, ISYM) 

DU  75  K= 1 ,46 

IF  (SWHPM(K)  .GT.  XMAX)  GO  TO  75 
U (N.EU.2)  GO  TO  62 
IF (kAPM(K.J) .GT.YPMAX)  GO  TO  75 
GU  TO  64 

62  If  (R2PM(K)  .GT.  YPMAX ) GO  TO  75 
64  NP  = NP  ♦ 1 

XP(NP)  = SWHPM(K) 

If (N.EU.2)  GO  TO  72 
YP (NP) =DAPM(K,J) 

GU  TO  75 

72  YP(NP)  = R2PM(K) 

75  CUNTINUE 

XP ( NP ♦ 1 ) = XP(NPl) 

XP(NP*2)  = XP(NP2) 

YP(NP*1)  = YP(NPl) 

YP (NP*2)  = YP (NP2) 

CALL  LINE  (XP,  YP,  NP,  1,  0,  3) 

RlTURN 

END 
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DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

(1)  DTNSRDC  REPORTS,  A FORMAL  SERIES  PUBLISHING  INFORMATION  OF 
PERMANENT  TECHNICAL  VALUE,  DESIGNATED  BY  A SERIAL  REPORT  NUMBER 

(2)  DEPARTMENTAL  REPORTS,  A SEMIFQRMAL  SERIES,  RECORDING  INFORMA 
TION  OF  A PRELIMINARY  OR  TEMPORARY  NATURE,  OR  OF  LIMITED  INTEREST  OR 
SIGNIFICANCE,  CARRYING  A DEPARTMENTAL  ALPHANUMERIC  IDENTIFICATION 

(3)  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES,  USUALLY  INTERNAL 
WORKING  PAPERS  OR  DIRECT  REPORTS  TO  SPONSORS,  NUMBERED  AS  TM  SERIES 
REPORTS,  NOT  FOR  GENERAL  DISTRIBUTION 


